Linux Cubed Series 3: Developer Tools

home *** CD-ROM | disk | FTP | other *** search

/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / clisp-li.000 / clisp-li / clisp-1996-07-22 / src / clos.fas < prev next >

Wrap

CLISP byte-compiled Lisp program | 1996-07-22 | 161.5 KB | 3,470 lines

(SYSTEM::VERSION '(19071996.)) #Y(#:TOP-LEVEL-FORM-1 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01) "LISP" ) #Y(#:TOP-LEVEL-FORM-2 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01) (CLOS) ) #Y(#:TOP-LEVEL-FORM-3 #21Y(00 00 00 00 00 00 00 00 00 01 D8 6A 01 37 03 30 BC 0F 01 19 01) CLOS *FEATURES* ) #Y(#:TOP-LEVEL-FORM-4 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01) "SYSTEM" ) #Y(#:TOP-LEVEL-FORM-5-1 #18Y(00 00 00 00 00 00 00 00 00 01 D8 01 02 30 E3 3D 19 01) "CLOS" ) #Y(#:TOP-LEVEL-FORM-5-2 #17Y(00 00 00 00 00 00 00 00 00 01 D8 D9 30 E0 3D 19 01) ("LISP") "CLOS" ) #Y(#:TOP-LEVEL-FORM-5-3 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) "ERROR-OF-TYPE" "SYSTEM" "CLOS" IMPORT-CERROR ) #Y(#:TOP-LEVEL-FORM-5-4 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) "FUNCTION-NAME-P" "SYSTEM" "CLOS" IMPORT-CERROR ) #Y(#:TOP-LEVEL-FORM-5-5 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) "BLOCK-NAME" "SYSTEM" "CLOS" IMPORT-CERROR ) #Y(#:TOP-LEVEL-FORM-5-6 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) "MEMQ" "SYSTEM" "CLOS" IMPORT-CERROR ) #Y(#:TOP-LEVEL-FORM-5-7 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) "*KEYWORD-PACKAGE*" "SYSTEM" "CLOS" IMPORT-CERROR ) #Y(#:TOP-LEVEL-FORM-5-8 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) "%GENERIC-FUNCTION-LAMBDA" "SYSTEM" "CLOS" IMPORT-CERROR ) #Y(#:TOP-LEVEL-FORM-5-9 #19Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 3D 19 01) "%OPTIMIZE-FUNCTION-LAMBDA" "SYSTEM" "CLOS" IMPORT-CERROR ) #Y(#:TOP-LEVEL-FORM-5-10 #15Y(00 00 00 00 00 00 00 00 00 01 D8 30 D0 19 01) "CLOS" ) #Y(#:TOP-LEVEL-FORM-6 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 30 E4 19 01) "CLOS" ) #Y(#:TOP-LEVEL-FORM-7 #17Y(00 00 00 00 00 00 00 00 00 01 D8 37 01 30 DB 19 01) (SLOT-VALUE SLOT-BOUNDP SLOT-MAKUNBOUND SLOT-EXISTS-P WITH-SLOTS WITH-ACCESSORS FIND-CLASS CLASS-OF DEFCLASS DEFMETHOD CALL-NEXT-METHOD NEXT-METHOD-P DEFGENERIC GENERIC-FUNCTION GENERIC-FLET GENERIC-LABELS CLASS-NAME NO-APPLICABLE-METHOD NO-PRIMARY-METHOD NO-NEXT-METHOD FIND-METHOD ADD-METHOD REMOVE-METHOD COMPUTE-APPLICABLE-METHODS METHOD-QUALIFIERS FUNCTION-KEYWORDS SLOT-MISSING SLOT-UNBOUND PRINT-OBJECT DESCRIBE-OBJECT MAKE-INSTANCE INITIALIZE-INSTANCE REINITIALIZE-INSTANCE SHARED-INITIALIZE STANDARD-CLASS STRUCTURE-CLASS BUILT-IN-CLASS STANDARD-OBJECT STANDARD-GENERIC-FUNCTION STANDARD-METHOD STANDARD )) #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <CLASS>) <CLASS> ) #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <STANDARD-CLASS>) <STANDARD-CLASS> ) #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <STRUCTURE-CLASS>) <STRUCTURE-CLASS> ) #Y(#:TOP-LEVEL-FORM-11 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <BUILT-IN-CLASS>) <BUILT-IN-CLASS> ) #Y(#:TOP-LEVEL-FORM-12 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <STANDARD-OBJECT>) <STANDARD-OBJECT> ) #Y(#:TOP-LEVEL-FORM-13 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <STANDARD-GENERIC-FUNCTION>) <STANDARD-GENERIC-FUNCTION> ) #Y(#:TOP-LEVEL-FORM-14 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <ARRAY>) <ARRAY> ) #Y(#:TOP-LEVEL-FORM-15 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <BIT-VECTOR>) <BIT-VECTOR> ) #Y(#:TOP-LEVEL-FORM-16 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <CHARACTER>) <CHARACTER> ) #Y(#:TOP-LEVEL-FORM-17 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <COMPLEX>) <COMPLEX> ) #Y(#:TOP-LEVEL-FORM-18 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <CONS>) <CONS> ) #Y(#:TOP-LEVEL-FORM-19 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <FLOAT>) <FLOAT> ) #Y(#:TOP-LEVEL-FORM-20 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <FUNCTION>) <FUNCTION> ) #Y(#:TOP-LEVEL-FORM-21 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <HASH-TABLE>) <HASH-TABLE> ) #Y(#:TOP-LEVEL-FORM-22 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <INTEGER>) <INTEGER> ) #Y(#:TOP-LEVEL-FORM-23 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <LIST>) <LIST> ) #Y(#:TOP-LEVEL-FORM-24 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <NULL>) <NULL> ) #Y(#:TOP-LEVEL-FORM-25 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <NUMBER>) <NUMBER> ) #Y(#:TOP-LEVEL-FORM-26 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <PACKAGE>) <PACKAGE> ) #Y(#:TOP-LEVEL-FORM-27 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <PATHNAME>) <PATHNAME> ) #Y(#:TOP-LEVEL-FORM-28 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <LOGICAL-PATHNAME>) <LOGICAL-PATHNAME> ) #Y(#:TOP-LEVEL-FORM-29 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <RANDOM-STATE>) <RANDOM-STATE> ) #Y(#:TOP-LEVEL-FORM-30 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <RATIO>) <RATIO> ) #Y(#:TOP-LEVEL-FORM-31 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <RATIONAL>) <RATIONAL> ) #Y(#:TOP-LEVEL-FORM-32 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <READTABLE>) <READTABLE> ) #Y(#:TOP-LEVEL-FORM-33 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <REAL>) <REAL> ) #Y(#:TOP-LEVEL-FORM-34 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <SEQUENCE>) <SEQUENCE> ) #Y(#:TOP-LEVEL-FORM-35 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <STREAM>) <STREAM> ) #Y(#:TOP-LEVEL-FORM-36 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <FILE-STREAM>) <FILE-STREAM> ) #Y(#:TOP-LEVEL-FORM-37 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <SYNONYM-STREAM>) <SYNONYM-STREAM> ) #Y(#:TOP-LEVEL-FORM-38 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <BROADCAST-STREAM>) <BROADCAST-STREAM> ) #Y(#:TOP-LEVEL-FORM-39 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <CONCATENATED-STREAM>) <CONCATENATED-STREAM> ) #Y(#:TOP-LEVEL-FORM-40 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <TWO-WAY-STREAM>) <TWO-WAY-STREAM> ) #Y(#:TOP-LEVEL-FORM-41 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <ECHO-STREAM>) <ECHO-STREAM> ) #Y(#:TOP-LEVEL-FORM-42 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <STRING-STREAM>) <STRING-STREAM> ) #Y(#:TOP-LEVEL-FORM-43 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <STRING>) <STRING> ) #Y(#:TOP-LEVEL-FORM-44 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <SYMBOL>) <SYMBOL> ) #Y(#:TOP-LEVEL-FORM-45 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <T>) <T> ) #Y(#:TOP-LEVEL-FORM-46 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <VECTOR>) <VECTOR> ) #Y(#:TOP-LEVEL-FORM-47 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E C4 19 01) (SPECIAL <STRUCTURE-OBJECT>) <STRUCTURE-OBJECT> ) #Y(#:TOP-LEVEL-FORM-48 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C6 19 01) #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) SYSTEM::REMOVE-OLD-DEFINITIONS #Y(#1=(SETF FIND-CLASS) #112Y(00 00 00 00 02 00 02 00 00 0E AD 8E 09 15 AE 87 09 2C D8 D9 B0 DA E2 E3 E4 E5 6D 03 07 E6 A6 14 32 06 1F D8 D9 AF DA DB DC DD DE 6D 03 07 E0 A5 1A 6D E9 EA EB EC 6D 03 07 ED AD 32 02 1F AD E2 37 01 71 86 AA 88 09 1F AA 88 0F 06 AA 6E 10 A0 21 60 AE 88 16 11 EF F0 F1 6D 03 07 F2 F3 F4 6D 03 07 F5 B1 2C 04 1E 16 01 AD E2 B0 31 8A 19 05 ) TYPE-ERROR :DATUM :EXPECTED-TYPE SYMBOL "~S: argument ~S is not a symbol" "~S: Argument ~S ist kein Symbol." "~S : L'argument ~S n'est pas un symbole." SYSTEM::LANGUAGE (SETF FIND-CLASS) CLASS-P CLASS "~S: ~S is not a class" "~S: ~S ist keine Klasse." "~S : ~S n'est pas une classe." (SETF FIND-CLASS) BUILT-IN-CLASS-P CLASS-NAME ERROR "~S: cannot redefine built-in class ~S" "~S: Built-In-Klasse ~S kann nicht umdefiniert werden." "~S : La classe prΘdΘfinie ~S ne peut Ωtre redΘfinie." (SETF FIND-CLASS) SYSTEM::EXPORTED-LISP-SYMBOL-P "The old definition will be lost" "Die alte Definition wird weggeworfen." "L'ancienne dΘfinition sera perdue." "~S: Redefining the COMMON LISP class ~S" "~S: Die COMMON-LISP-Klasse ~S wird umdefiniert." "~S : La classe ~S de COMMON-LISP va Ωtre redΘfinie." (SETF FIND-CLASS) CERROR ) #1# ) #Y(#:TOP-LEVEL-FORM-49 #24Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 31 8A D8 DB 62 2C 03 04 C3 19 01 ) SLOT-VALUE SYSTEM::SETF-EXPANDER SET-SLOT-VALUE SETF SYSTEM::%SET-DOCUMENTATION ) #Y(#:TOP-LEVEL-FORM-50 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) WITH-SLOTS SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(WITH-SLOTS #228Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 80 42 9D 5B 77 9E 5B 5B 77 9F 5B 5B 78 01 02 AE 8E 0E 36 AE 62 AB 8B 97 80 5C 86 01 00 14 9C 1F 11 AB 71 4A 24 08 2D 86 01 00 9C 5B 5A F7 AA 8E 09 2C AB 8D 09 33 DA E7 E8 E9 6D 03 06 CA 14 9F 14 32 02 1F AC 2E 01 19 03 DA DB DC DD 6D 03 06 DF A2 1A 6C DA E1 E2 E3 6D 03 06 CA 1A 60 DA E4 E5 E6 6D 03 06 DF 9E 1A 57 AA 83 04 AB 83 03 16 01 82 01 1A FF 9F 16 02 AC 62 B2 30 63 41 02 37 01 71 92 EA AB B2 7A 02 7A 01 EB 62 B2 71 4C B2 71 4C 1A 25 16 03 1A 26 EE A1 79 60 01 1A 27 93 01 9C 1F 70 93 01 AB EC B4 ED AE 7A 02 7A 03 7A 02 83 04 16 02 82 01 82 00 9C 20 63 16 02 AA 7F A8 00 91 05 53 00 14 B1 32 02 23 7B 02 60 03 19 0B ) 3. SYSTEM::MACRO-CALL-ERROR PROGRAM-ERROR "~S: not a list of slots: ~S" "~S: Das ist keine Liste von Slots: ~S" "~S : Pas une liste de composants: ~S" SYSTEM::LANGUAGE WITH-SLOTS 2. "~S: invalid slot and variable specification ~S" "~S: unzulΣssige Slot/Variablen-Bezeichnung ~S" "~S : spΘcification invalide de composant et variable: ~S" "~S: variable ~S should be a symbol" "~S: Variable ~S sollte ein Symbol sein." "~S : La variable ~S devrait Ωtre un symbole." "~S: slot name ~S should be a symbol" "~S: Slot-Name ~S sollte ein Symbol sein." "~S : Le nom de composant ~S devrait Ωtre un symbole." LET SYMBOL-MACROLET SLOT-VALUE QUOTE DECLARE ) ) #Y(#:TOP-LEVEL-FORM-51 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) WITH-ACCESSORS SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(WITH-ACCESSORS #197Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 3B 9D 5B 77 9E 5B 5B 77 9F 5B 5B 78 AC 8E 0E 31 AC 62 AB 8B 97 80 51 86 01 00 1F 30 AA 71 4A 24 08 2A 93 00 8E 09 30 9B 5B 77 8D 09 36 DA E7 E8 E9 6D 03 06 DF 9E 5B 5A 14 32 02 1F AC 2E 01 19 03 DA DB DC DD 6D 03 06 DF A0 1A 6C DA E1 E2 E3 6D 03 06 DF 9E 1A 61 DA E4 E5 E6 6D 03 06 DF 9E 5A 1A 55 82 01 1A FF AA 16 02 AA 62 B0 30 63 41 02 37 01 71 92 EA AB B0 7A 02 7A 01 EB 62 B3 1A 19 EC A1 79 60 01 1A 1F 93 00 93 00 9C 5B 77 B2 7A 02 7A 02 83 02 16 01 82 00 9B 20 6B 16 01 AA 7F A8 00 91 05 5B 00 14 B1 32 02 23 7B 02 60 03 19 09 ) 3. SYSTEM::MACRO-CALL-ERROR PROGRAM-ERROR "~S: not a list of slots: ~S" "~S: Das ist keine Liste von Slots: ~S" "~S : Pas une liste de composants: ~S" SYSTEM::LANGUAGE WITH-ACCESSORS 2. "~S: invalid slot and accessor specification ~S" "~S: unzulΣssige Slot/Accessor-Bezeichnung ~S" "~S : spΘcification invalide de composant et accesseur: ~S" "~S: variable ~S should be a symbol" "~S: Variable ~S sollte ein Symbol sein." "~S : La variable ~S devrait Ωtre un symbole." "~S: accessor name ~S should be a symbol" "~S: Accessor-Name ~S sollte ein Symbol sein." "~S : Le nom d'accesseur ~S devrait Ωtre un symbole." LET SYMBOL-MACROLET DECLARE ) ) #Y(#:TOP-LEVEL-FORM-52 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DEFINE-STRUCTURE-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DEFINE-STRUCTURE-CLASS #13Y(00 00 00 00 01 00 00 00 00 02 00 19 02)) ) #Y(#:TOP-LEVEL-FORM-53 #16Y(00 00 00 00 00 00 00 00 00 01 D8 30 E8 00 19 01) #Y(#:TOP-LEVEL-FORM-53-1 #16Y(00 00 00 00 01 00 00 00 00 02 AB D8 31 8B 19 02) CLASS ) ) #Y(#:TOP-LEVEL-FORM-54 #40Y(00 00 00 00 00 00 00 00 00 01 37 05 C3 F9 C4 F8 70 67 DA 8C 62 0B AA DA 70 52 8D 04 04 DA DB 2F 04 DA AB 31 85 C5 19 02 ) #.#'EQ 0. EMPTY-HT (DEFCONSTANT EMPTY-HT (MAKE-HASH-TABLE :TEST #'EQ :SIZE 0.)) SYSTEM::CONSTANT-WARNING ) #Y(#:TOP-LEVEL-FORM-55 #298Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 63 D8 DE 72 04 00 31 8A DB 2E 07 E0 30 5E E1 2E 01 E1 E2 E3 31 8A E1 E4 31 84 E5 30 5E E6 30 5E E7 2E 01 E7 E2 E8 31 8A E7 E9 31 84 EA 30 5E EB 30 5E EC 2E 01 EC E2 ED 31 8A EC EE 31 84 EF 30 5E F0 30 5E F1 2E 01 F1 E2 F2 31 8A F1 F3 31 84 F4 30 5E F5 30 5E 64 1E 2E 01 64 1E E2 64 1F 31 8A 64 1E 64 20 31 84 64 21 30 5E 64 22 30 5E 64 23 2E 01 64 23 E2 64 24 31 8A 64 23 64 25 31 84 64 26 30 5E 64 27 30 5E 64 28 2E 01 64 28 E2 64 29 31 8A 64 28 64 2A 31 84 E7 64 2B 64 2C 03 2D 79 31 8A E7 64 2E 62 2C 03 2F EC 64 2B 64 2C 03 30 79 31 8A EC 64 2E 62 2C 03 2F F1 64 2B 64 2C 03 31 79 31 8A F1 64 2E 62 2C 03 2F 64 1E 64 2B 64 2C 03 32 79 31 8A 64 1E 64 2E 62 2C 03 2F 64 23 64 2B 64 2C 03 33 79 31 8A 64 23 64 2E 62 2C 03 2F 64 28 64 2B 64 2C 03 34 79 31 8A 64 28 64 2E 62 2C 03 2F DB 64 35 62 2C 03 2F DB 64 36 64 37 31 8A C6 19 01 ) MAKE-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-CLASS #73Y(00 00 00 00 00 00 00 00 80 1B 06 00 00 00 3C 06 3C 05 3C 04 3C 03 3C 02 3A 01 03 0E 06 F7 DF E0 71 34 E1 AB E2 B4 31 33 E1 AB E3 B3 31 33 E1 AB E4 B2 31 33 E1 AB E5 B1 31 33 E1 AB E6 B0 31 33 E1 AB E7 AF 31 33 15 19 07 ) :METACLASS :CLASSNAME :DIRECT-SUPERCLASSES :ALL-SUPERCLASSES :PRECEDENCE-LIST :SLOT-LOCATION-TABLE EMPTY-HT #1=(CLASS) 7. CLASS 1. 2. 3. 4. 5. 6. ) CLASS SYSTEM::DEFSTRUCT-DESCRIPTION #1# (#(METACLASS (:METACLASS) 1. (NIL) NIL T NIL) #(CLASSNAME (:CLASSNAME) 2. (NIL) NIL T NIL) #(DIRECT-SUPERCLASSES (:DIRECT-SUPERCLASSES) 3. (NIL) NIL T NIL) #(ALL-SUPERCLASSES (:ALL-SUPERCLASSES) 4. (NIL) NIL T NIL) #(PRECEDENCE-LIST (:PRECEDENCE-LIST) 5. (NIL) NIL T NIL) #(SLOT-LOCATION-TABLE (:SLOT-LOCATION-TABLE) 6. (NIL . #S(HASH-TABLE EQ)) EMPTY-HT T NIL ) ) DEFINE-STRUCTURE-CLASS (INLINE COPY-CLASS) COPY-CLASS SYSTEM::INLINE-EXPANSION ((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-CLASS)) (BLOCK COPY-CLASS (SYSTEM::%COPY-STRUCTURE STRUCTURE)) ) #Y(COPY-CLASS #15Y(00 00 00 00 01 00 00 00 00 02 AB 31 35 19 02)) (FUNCTION CLASS-METACLASS (CLASS) T) (INLINE CLASS-METACLASS) CLASS-METACLASS (#2=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN CLASS-METACLASS)) (BLOCK CLASS-METACLASS (THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 1.)) ) ) #Y(CLASS-METACLASS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) CLASS 1. ) (FUNCTION CLASS-CLASSNAME (CLASS) T) (INLINE CLASS-CLASSNAME) CLASS-CLASSNAME (#2# (DECLARE (SYSTEM::IN-DEFUN CLASS-CLASSNAME)) (BLOCK CLASS-CLASSNAME (THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 2.)) ) ) #Y(CLASS-CLASSNAME #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) CLASS 2. ) (FUNCTION CLASS-DIRECT-SUPERCLASSES (CLASS) T) (INLINE CLASS-DIRECT-SUPERCLASSES) CLASS-DIRECT-SUPERCLASSES (#2# (DECLARE (SYSTEM::IN-DEFUN CLASS-DIRECT-SUPERCLASSES)) (BLOCK CLASS-DIRECT-SUPERCLASSES (THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 3.)) ) ) #Y(CLASS-DIRECT-SUPERCLASSES #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) CLASS 3. ) (FUNCTION CLASS-ALL-SUPERCLASSES (CLASS) T) (INLINE CLASS-ALL-SUPERCLASSES) CLASS-ALL-SUPERCLASSES (#2# (DECLARE (SYSTEM::IN-DEFUN CLASS-ALL-SUPERCLASSES)) (BLOCK CLASS-ALL-SUPERCLASSES (THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 4.)) ) ) #Y(CLASS-ALL-SUPERCLASSES #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) CLASS 4. ) (FUNCTION CLASS-PRECEDENCE-LIST (CLASS) T) (INLINE CLASS-PRECEDENCE-LIST) CLASS-PRECEDENCE-LIST (#2# (DECLARE (SYSTEM::IN-DEFUN CLASS-PRECEDENCE-LIST)) (BLOCK CLASS-PRECEDENCE-LIST (THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 5.)) ) ) #Y(CLASS-PRECEDENCE-LIST #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) CLASS 5. ) (FUNCTION CLASS-SLOT-LOCATION-TABLE (CLASS) T) (INLINE CLASS-SLOT-LOCATION-TABLE) CLASS-SLOT-LOCATION-TABLE (#2# (DECLARE (SYSTEM::IN-DEFUN CLASS-SLOT-LOCATION-TABLE)) (BLOCK CLASS-SLOT-LOCATION-TABLE (THE T (SYSTEM::%STRUCTURE-REF 'CLASS SYSTEM::OBJECT 6.)) ) ) #Y(CLASS-SLOT-LOCATION-TABLE #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) CLASS 6. ) SYSTEM::SETF-EXPANDER -1. #Y(SETF-CLASS-METACLASS #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'CLASS 1. ) SETF SYSTEM::%SET-DOCUMENTATION #Y(SETF-CLASS-CLASSNAME #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'CLASS 2. ) #Y(SETF-CLASS-DIRECT-SUPERCLASSES #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'CLASS 3. ) #Y(SETF-CLASS-ALL-SUPERCLASSES #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'CLASS 4. ) #Y(SETF-CLASS-PRECEDENCE-LIST #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'CLASS 5. ) #Y(SETF-CLASS-SLOT-LOCATION-TABLE #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'CLASS 6. ) STRUCTURE SYSTEM::STRUCTURE-PRINT #Y(CLASS-PRINT-FUNCTION #18Y(00 00 00 00 03 00 00 00 00 04 AD AD AD 2C 03 00 19 04) PRINT-CLASS ) ) #Y(#:TOP-LEVEL-FORM-56 #91Y(00 00 00 00 00 00 00 00 00 01 00 2A 01 D8 C4 5C 0B 00 00 DA 2E 03 DA AB 6C 04 01 31 84 D8 DD 67 02 00 63 DA DE 72 04 00 31 8A 16 01 D8 2E 07 E0 30 5E E1 2E 03 E1 E2 E3 31 8A E1 E4 31 84 E5 30 5E E6 2E 03 E6 E2 E7 31 8A E6 E8 31 84 D8 E9 62 2C 03 12 D8 EB EC 31 8A C3 19 01 ) BUILT-IN-CLASS #.(SVREF (GET 'CLASS 'SYSTEM::DEFSTRUCT-DESCRIPTION) 0.) MAKE-BUILT-IN-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-BUILT-IN-CLASS #75Y(00 00 00 00 00 00 00 00 80 1B 06 00 01 00 3C 06 3C 05 3C 04 3C 03 3C 02 3A 01 03 0E 07 F7 68 00 01 E0 71 34 E1 AB E2 B4 31 33 E1 AB E3 B3 31 33 E1 AB E4 B2 31 33 E1 AB E5 B1 31 33 E1 AB E6 B0 31 33 E1 AB E7 AF 31 33 15 19 07 ) NIL :METACLASS :CLASSNAME :DIRECT-SUPERCLASSES :ALL-SUPERCLASSES :PRECEDENCE-LIST :SLOT-LOCATION-TABLE EMPTY-HT 7. BUILT-IN-CLASS 1. 2. 3. 4. 5. 6. ) SYSTEM::DEFSTRUCT-DESCRIPTION (#(METACLASS (:METACLASS) 1. (NIL) NIL T NIL) #(CLASSNAME (:CLASSNAME) 2. (NIL) NIL T NIL) #(DIRECT-SUPERCLASSES (:DIRECT-SUPERCLASSES) 3. (NIL) NIL T NIL) #(ALL-SUPERCLASSES (:ALL-SUPERCLASSES) 4. (NIL) NIL T NIL) #(PRECEDENCE-LIST (:PRECEDENCE-LIST) 5. (NIL) NIL T NIL) #(SLOT-LOCATION-TABLE (:SLOT-LOCATION-TABLE) 6. (NIL . #S(HASH-TABLE EQ)) EMPTY-HT T NIL ) ) DEFINE-STRUCTURE-CLASS (INLINE BUILT-IN-CLASS-P) BUILT-IN-CLASS-P SYSTEM::INLINE-EXPANSION ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN BUILT-IN-CLASS-P)) (BLOCK BUILT-IN-CLASS-P (SYSTEM::%STRUCTURE-TYPE-P 'BUILT-IN-CLASS SYSTEM::OBJECT) ) ) #Y(BUILT-IN-CLASS-P #16Y(00 00 00 00 01 00 00 00 00 02 D8 AC 31 36 19 02) BUILT-IN-CLASS ) (INLINE COPY-BUILT-IN-CLASS) COPY-BUILT-IN-CLASS ((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-BUILT-IN-CLASS)) (BLOCK COPY-BUILT-IN-CLASS (SYSTEM::%COPY-STRUCTURE STRUCTURE)) ) #Y(COPY-BUILT-IN-CLASS #15Y(00 00 00 00 01 00 00 00 00 02 AB 31 35 19 02)) STRUCTURE SYSTEM::%SET-DOCUMENTATION SYSTEM::STRUCTURE-PRINT #Y(BUILT-IN-CLASS-PRINT-FUNCTION #18Y(00 00 00 00 03 00 00 00 00 04 AD AD AD 2C 03 00 19 04) PRINT-CLASS ) ) #Y(#:TOP-LEVEL-FORM-57 #15Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E 19 01) (NOTINLINE BUILT-IN-CLASS-P) ) #Y(#:TOP-LEVEL-FORM-58 #200Y(00 00 00 00 00 00 00 00 00 01 00 2A 01 D8 C4 5C 0B 00 00 DA 2E 03 DA AB 6C 04 01 31 84 D8 DD 67 02 00 63 DA DE 72 04 00 31 8A 16 01 D8 2E 07 E0 30 5E E1 30 5E E2 2E 03 E2 E3 E4 31 8A E2 E5 31 84 E6 30 5E E7 30 5E E8 2E 03 E8 E3 E9 31 8A E8 EA 31 84 EB 30 5E EC 30 5E ED 2E 03 ED E3 EE 31 8A ED EF 31 84 F0 30 5E F1 30 5E F2 2E 03 F2 E3 F3 31 8A F2 F4 31 84 E2 F5 64 1E 03 1F 79 31 8A E2 64 20 62 2C 03 21 E8 F5 64 1E 03 22 79 31 8A E8 64 20 62 2C 03 21 ED F5 64 1E 03 23 79 31 8A ED 64 20 62 2C 03 21 F2 F5 64 1E 03 24 79 31 8A F2 64 20 62 2C 03 21 D8 64 25 62 2C 03 21 D8 64 26 64 27 31 8A C3 19 01 ) SLOTTED-CLASS #.(SVREF (GET 'CLASS 'SYSTEM::DEFSTRUCT-DESCRIPTION) 0.) MAKE-SLOTTED-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-SLOTTED-CLASS #107Y(00 00 00 00 00 00 00 00 80 1B 0A 00 01 00 3C 0A 3C 09 3C 08 3C 07 3C 06 3A 05 03 0E 0B FB 3C 04 3C 03 3C 02 3C 01 68 00 01 E4 71 34 E5 AB E6 B8 31 33 E5 AB E7 B7 31 33 E5 AB E8 B6 31 33 E5 AB E9 B5 31 33 E5 AB EA B4 31 33 E5 AB EB B3 31 33 E5 AB EC B2 31 33 E5 AB ED B1 31 33 E5 AB EE B0 31 33 E5 AB EF AF 31 33 15 19 0B ) NIL :METACLASS :CLASSNAME :DIRECT-SUPERCLASSES :ALL-SUPERCLASSES :PRECEDENCE-LIST :SLOT-LOCATION-TABLE :SLOTS :DEFAULT-INITARGS :VALID-INITARGS :INSTANCE-SIZE EMPTY-HT 11. SLOTTED-CLASS 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. ) SYSTEM::DEFSTRUCT-DESCRIPTION (#(METACLASS (:METACLASS) 1. (NIL) NIL T NIL) #(CLASSNAME (:CLASSNAME) 2. (NIL) NIL T NIL) #(DIRECT-SUPERCLASSES (:DIRECT-SUPERCLASSES) 3. (NIL) NIL T NIL) #(ALL-SUPERCLASSES (:ALL-SUPERCLASSES) 4. (NIL) NIL T NIL) #(PRECEDENCE-LIST (:PRECEDENCE-LIST) 5. (NIL) NIL T NIL) #(SLOT-LOCATION-TABLE (:SLOT-LOCATION-TABLE) 6. (NIL . #S(HASH-TABLE EQ)) EMPTY-HT T NIL ) #(SLOTS (:SLOTS) 7. (NIL) NIL T NIL) #(DEFAULT-INITARGS (:DEFAULT-INITARGS) 8. (NIL) NIL T NIL) #(VALID-INITARGS (:VALID-INITARGS) 9. (NIL) NIL T NIL) #(INSTANCE-SIZE (:INSTANCE-SIZE) 10. (NIL) NIL T NIL) ) DEFINE-STRUCTURE-CLASS (FUNCTION CLASS-SLOTS (SLOTTED-CLASS) T) (INLINE CLASS-SLOTS) CLASS-SLOTS SYSTEM::INLINE-EXPANSION (#1=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN CLASS-SLOTS)) (BLOCK CLASS-SLOTS (THE T (SYSTEM::%STRUCTURE-REF 'SLOTTED-CLASS SYSTEM::OBJECT 7.)) ) ) #Y(CLASS-SLOTS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SLOTTED-CLASS 7. ) (FUNCTION CLASS-DEFAULT-INITARGS (SLOTTED-CLASS) T) (INLINE CLASS-DEFAULT-INITARGS) CLASS-DEFAULT-INITARGS (#1# (DECLARE (SYSTEM::IN-DEFUN CLASS-DEFAULT-INITARGS)) (BLOCK CLASS-DEFAULT-INITARGS (THE T (SYSTEM::%STRUCTURE-REF 'SLOTTED-CLASS SYSTEM::OBJECT 8.)) ) ) #Y(CLASS-DEFAULT-INITARGS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SLOTTED-CLASS 8. ) (FUNCTION CLASS-VALID-INITARGS (SLOTTED-CLASS) T) (INLINE CLASS-VALID-INITARGS) CLASS-VALID-INITARGS (#1# (DECLARE (SYSTEM::IN-DEFUN CLASS-VALID-INITARGS)) (BLOCK CLASS-VALID-INITARGS (THE T (SYSTEM::%STRUCTURE-REF 'SLOTTED-CLASS SYSTEM::OBJECT 9.)) ) ) #Y(CLASS-VALID-INITARGS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SLOTTED-CLASS 9. ) (FUNCTION CLASS-INSTANCE-SIZE (SLOTTED-CLASS) T) (INLINE CLASS-INSTANCE-SIZE) CLASS-INSTANCE-SIZE (#1# (DECLARE (SYSTEM::IN-DEFUN CLASS-INSTANCE-SIZE)) (BLOCK CLASS-INSTANCE-SIZE (THE T (SYSTEM::%STRUCTURE-REF 'SLOTTED-CLASS SYSTEM::OBJECT 10.)) ) ) #Y(CLASS-INSTANCE-SIZE #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) SLOTTED-CLASS 10. ) SYSTEM::SETF-EXPANDER -1. #Y(SETF-CLASS-SLOTS #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'SLOTTED-CLASS 7. ) SETF SYSTEM::%SET-DOCUMENTATION #Y(SETF-CLASS-DEFAULT-INITARGS #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'SLOTTED-CLASS 8. ) #Y(SETF-CLASS-VALID-INITARGS #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'SLOTTED-CLASS 9. ) #Y(SETF-CLASS-INSTANCE-SIZE #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'SLOTTED-CLASS 10. ) STRUCTURE SYSTEM::STRUCTURE-PRINT #Y(SLOTTED-CLASS-PRINT-FUNCTION #18Y(00 00 00 00 03 00 00 00 00 04 AD AD AD 2C 03 00 19 04) PRINT-CLASS ) ) #Y(#:TOP-LEVEL-FORM-59 #123Y(00 00 00 00 00 00 00 00 00 01 00 2A 01 D8 C4 5C 0B 00 00 DA 2E 03 DA AB 6C 04 01 31 84 D8 DD 67 02 00 63 DA DE 72 04 00 31 8A 16 01 D8 2E 07 E0 30 5E E1 2E 03 E1 E2 E3 31 8A E1 E4 31 84 E5 30 5E E6 2E 03 E6 E2 E7 31 8A E6 E8 31 84 E9 30 5E EA 30 5E EB 2E 03 EB E2 EC 31 8A EB ED 31 84 EB EE EF 03 18 79 31 8A EB F1 62 2C 03 1A D8 F3 62 2C 03 1A D8 F4 F5 31 8A C3 19 01 ) STRUCTURE-CLASS #.(SVREF (GET 'SLOTTED-CLASS 'SYSTEM::DEFSTRUCT-DESCRIPTION) 0.) MAKE-STRUCTURE-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-STRUCTURE-CLASS #115Y(00 00 00 00 00 00 00 00 80 1B 0B 00 01 00 3C 0B 3C 0A 3C 09 3C 08 3C 07 3A 06 03 0E 0C FC 3C 05 3C 04 3C 03 3C 02 3C 01 68 00 01 E5 71 34 E6 AB E7 B9 31 33 E6 AB E8 B8 31 33 E6 AB E9 B7 31 33 E6 AB EA B6 31 33 E6 AB EB B5 31 33 E6 AB EC B4 31 33 E6 AB ED B3 31 33 E6 AB EE B2 31 33 E6 AB EF B1 31 33 E6 AB F0 B0 31 33 E6 AB F1 AF 31 33 15 19 0C ) NIL :METACLASS :CLASSNAME :DIRECT-SUPERCLASSES :ALL-SUPERCLASSES :PRECEDENCE-LIST :SLOT-LOCATION-TABLE :SLOTS :DEFAULT-INITARGS :VALID-INITARGS :INSTANCE-SIZE :NAMES EMPTY-HT 12. STRUCTURE-CLASS 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. ) SYSTEM::DEFSTRUCT-DESCRIPTION (#(METACLASS (:METACLASS) 1. (NIL) NIL T NIL) #(CLASSNAME (:CLASSNAME) 2. (NIL) NIL T NIL) #(DIRECT-SUPERCLASSES (:DIRECT-SUPERCLASSES) 3. (NIL) NIL T NIL) #(ALL-SUPERCLASSES (:ALL-SUPERCLASSES) 4. (NIL) NIL T NIL) #(PRECEDENCE-LIST (:PRECEDENCE-LIST) 5. (NIL) NIL T NIL) #(SLOT-LOCATION-TABLE (:SLOT-LOCATION-TABLE) 6. (NIL . #S(HASH-TABLE EQ)) EMPTY-HT T NIL ) #(SLOTS (:SLOTS) 7. (NIL) NIL T NIL) #(DEFAULT-INITARGS (:DEFAULT-INITARGS) 8. (NIL) NIL T NIL) #(VALID-INITARGS (:VALID-INITARGS) 9. (NIL) NIL T NIL) #(INSTANCE-SIZE (:INSTANCE-SIZE) 10. (NIL) NIL T NIL) #(NAMES (:NAMES) 11. (NIL) NIL T NIL) ) DEFINE-STRUCTURE-CLASS (INLINE STRUCTURE-CLASS-P) STRUCTURE-CLASS-P SYSTEM::INLINE-EXPANSION ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN STRUCTURE-CLASS-P)) (BLOCK STRUCTURE-CLASS-P (SYSTEM::%STRUCTURE-TYPE-P 'STRUCTURE-CLASS SYSTEM::OBJECT) ) ) #Y(STRUCTURE-CLASS-P #16Y(00 00 00 00 01 00 00 00 00 02 D8 AC 31 36 19 02) STRUCTURE-CLASS ) (INLINE COPY-STRUCTURE-CLASS) COPY-STRUCTURE-CLASS ((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-STRUCTURE-CLASS)) (BLOCK COPY-STRUCTURE-CLASS (SYSTEM::%COPY-STRUCTURE STRUCTURE)) ) #Y(COPY-STRUCTURE-CLASS #15Y(00 00 00 00 01 00 00 00 00 02 AB 31 35 19 02)) (FUNCTION CLASS-NAMES (STRUCTURE-CLASS) T) (INLINE CLASS-NAMES) CLASS-NAMES ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN CLASS-NAMES)) (BLOCK CLASS-NAMES (THE T (SYSTEM::%STRUCTURE-REF 'STRUCTURE-CLASS SYSTEM::OBJECT 11.)) ) ) #Y(CLASS-NAMES #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) STRUCTURE-CLASS 11. ) SYSTEM::SETF-EXPANDER -1. #Y(SETF-CLASS-NAMES #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'STRUCTURE-CLASS 11. ) SETF SYSTEM::%SET-DOCUMENTATION STRUCTURE SYSTEM::STRUCTURE-PRINT #Y(STRUCTURE-CLASS-PRINT-FUNCTION #18Y(00 00 00 00 03 00 00 00 00 04 AD AD AD 2C 03 00 19 04) PRINT-CLASS ) ) #Y(#:TOP-LEVEL-FORM-60 #201Y(00 00 00 00 00 00 00 00 00 01 00 2A 01 D8 C4 5C 0B 00 00 DA 2E 03 DA AB 6C 04 01 31 84 D8 DD 67 02 00 63 DA DE 72 04 00 31 8A 16 01 D8 2E 07 E0 30 5E E1 2E 03 E1 E2 E3 31 8A E1 E4 31 84 E5 30 5E E6 2E 03 E6 E2 E7 31 8A E6 E8 31 84 E9 30 5E EA 30 5E EB 2E 03 EB E2 EC 31 8A EB ED 31 84 EE 30 5E EF 30 5E F0 2E 03 F0 E2 F1 31 8A F0 F2 31 84 F3 30 5E F4 30 5E F5 2E 03 F5 E2 64 1E 31 8A F5 64 1F 31 84 EB 64 20 64 21 03 22 79 31 8A EB 64 23 62 2C 03 24 F0 64 20 64 21 03 25 79 31 8A F0 64 23 62 2C 03 24 F5 64 20 64 21 03 26 79 31 8A F5 64 23 62 2C 03 24 D8 64 27 62 2C 03 24 D8 64 28 64 29 31 8A C3 19 01 ) STANDARD-CLASS #.(SVREF (GET 'SLOTTED-CLASS 'SYSTEM::DEFSTRUCT-DESCRIPTION) 0.) MAKE-STANDARD-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-STANDARD-CLASS #131Y(00 00 00 00 00 00 00 00 80 1B 0D 00 01 00 3C 0D 3C 0C 3C 0B 3C 0A 3C 09 3A 08 03 0E 0E FE 3C 07 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 68 00 01 E7 71 34 E8 AB E9 BB 31 33 E8 AB EA BA 31 33 E8 AB EB B9 31 33 E8 AB EC B8 31 33 E8 AB ED B7 31 33 E8 AB EE B6 31 33 E8 AB EF B5 31 33 E8 AB F0 B4 31 33 E8 AB F1 B3 31 33 E8 AB F2 B2 31 33 E8 AB F3 B1 31 33 E8 AB F4 B0 31 33 E8 AB F5 AF 31 33 15 19 0E ) NIL :METACLASS :CLASSNAME :DIRECT-SUPERCLASSES :ALL-SUPERCLASSES :PRECEDENCE-LIST :SLOT-LOCATION-TABLE :SLOTS :DEFAULT-INITARGS :VALID-INITARGS :INSTANCE-SIZE :SHARED-SLOTS :DIRECT-SLOTS :DIRECT-DEFAULT-INITARGS EMPTY-HT 14. STANDARD-CLASS 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. ) SYSTEM::DEFSTRUCT-DESCRIPTION (#(METACLASS (:METACLASS) 1. (NIL) NIL T NIL) #(CLASSNAME (:CLASSNAME) 2. (NIL) NIL T NIL) #(DIRECT-SUPERCLASSES (:DIRECT-SUPERCLASSES) 3. (NIL) NIL T NIL) #(ALL-SUPERCLASSES (:ALL-SUPERCLASSES) 4. (NIL) NIL T NIL) #(PRECEDENCE-LIST (:PRECEDENCE-LIST) 5. (NIL) NIL T NIL) #(SLOT-LOCATION-TABLE (:SLOT-LOCATION-TABLE) 6. (NIL . #S(HASH-TABLE EQ)) EMPTY-HT T NIL ) #(SLOTS (:SLOTS) 7. (NIL) NIL T NIL) #(DEFAULT-INITARGS (:DEFAULT-INITARGS) 8. (NIL) NIL T NIL) #(VALID-INITARGS (:VALID-INITARGS) 9. (NIL) NIL T NIL) #(INSTANCE-SIZE (:INSTANCE-SIZE) 10. (NIL) NIL T NIL) #(SHARED-SLOTS (:SHARED-SLOTS) 11. (NIL) NIL T NIL) #(DIRECT-SLOTS (:DIRECT-SLOTS) 12. (NIL) NIL T NIL) #(DIRECT-DEFAULT-INITARGS (:DIRECT-DEFAULT-INITARGS) 13. (NIL) NIL T NIL) ) DEFINE-STRUCTURE-CLASS (INLINE STANDARD-CLASS-P) STANDARD-CLASS-P SYSTEM::INLINE-EXPANSION ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN STANDARD-CLASS-P)) (BLOCK STANDARD-CLASS-P (SYSTEM::%STRUCTURE-TYPE-P 'STANDARD-CLASS SYSTEM::OBJECT) ) ) #Y(STANDARD-CLASS-P #16Y(00 00 00 00 01 00 00 00 00 02 D8 AC 31 36 19 02) STANDARD-CLASS ) (INLINE COPY-STANDARD-CLASS) COPY-STANDARD-CLASS ((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-STANDARD-CLASS)) (BLOCK COPY-STANDARD-CLASS (SYSTEM::%COPY-STRUCTURE STRUCTURE)) ) #Y(COPY-STANDARD-CLASS #15Y(00 00 00 00 01 00 00 00 00 02 AB 31 35 19 02)) (FUNCTION CLASS-SHARED-SLOTS (STANDARD-CLASS) T) (INLINE CLASS-SHARED-SLOTS) CLASS-SHARED-SLOTS (#1=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN CLASS-SHARED-SLOTS)) (BLOCK CLASS-SHARED-SLOTS (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-CLASS SYSTEM::OBJECT 11.)) ) ) #Y(CLASS-SHARED-SLOTS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) STANDARD-CLASS 11. ) (FUNCTION CLASS-DIRECT-SLOTS (STANDARD-CLASS) T) (INLINE CLASS-DIRECT-SLOTS) CLASS-DIRECT-SLOTS (#1# (DECLARE (SYSTEM::IN-DEFUN CLASS-DIRECT-SLOTS)) (BLOCK CLASS-DIRECT-SLOTS (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-CLASS SYSTEM::OBJECT 12.)) ) ) #Y(CLASS-DIRECT-SLOTS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) STANDARD-CLASS 12. ) (FUNCTION CLASS-DIRECT-DEFAULT-INITARGS (STANDARD-CLASS) T) (INLINE CLASS-DIRECT-DEFAULT-INITARGS) CLASS-DIRECT-DEFAULT-INITARGS (#1# (DECLARE (SYSTEM::IN-DEFUN CLASS-DIRECT-DEFAULT-INITARGS)) (BLOCK CLASS-DIRECT-DEFAULT-INITARGS (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-CLASS SYSTEM::OBJECT 13.)) ) ) #Y(CLASS-DIRECT-DEFAULT-INITARGS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) STANDARD-CLASS 13. ) SYSTEM::SETF-EXPANDER -1. #Y(SETF-CLASS-SHARED-SLOTS #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'STANDARD-CLASS 11. ) SETF SYSTEM::%SET-DOCUMENTATION #Y(SETF-CLASS-DIRECT-SLOTS #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'STANDARD-CLASS 12. ) #Y(SETF-CLASS-DIRECT-DEFAULT-INITARGS #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'STANDARD-CLASS 13. ) STRUCTURE SYSTEM::STRUCTURE-PRINT #Y(STANDARD-CLASS-PRINT-FUNCTION #18Y(00 00 00 00 03 00 00 00 00 04 AD AD AD 2C 03 00 19 04) PRINT-CLASS ) ) #Y(#:TOP-LEVEL-FORM-61 #56Y(00 00 00 00 00 00 00 00 00 01 D8 D9 37 01 71 86 C5 5E 14 DB DC DD DE DF E0 E1 E2 E3 E4 E5 E6 E7 E8 E9 EA EB EC ED EE EF F0 F1 F2 F3 F4 F5 63 64 1E 72 1D 00 2F 1F 19 01 ) CLASS SYSTEM::DEFSTRUCT-DESCRIPTION 0. ARRAY BIT-VECTOR CHARACTER COMPLEX CONS FLOAT FUNCTION HASH-TABLE INTEGER NULL PACKAGE PATHNAME LOGICAL-PATHNAME RANDOM-STATE RATIO READTABLE STANDARD-GENERIC-FUNCTION STREAM FILE-STREAM SYNONYM-STREAM BROADCAST-STREAM CONCATENATED-STREAM TWO-WAY-STREAM ECHO-STREAM STRING-STREAM STRING SYMBOL VECTOR %DEFCLOS ) #Y(#:TOP-LEVEL-FORM-62 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) PRINT-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(PRINT-CLASS #38Y(00 00 00 00 03 00 00 00 00 04 00 2A 02 7E 04 00 00 7E 03 00 01 AA 6C 00 01 67 01 00 67 02 01 D9 63 2C 05 02 19 05 ) #Y(PRINT-CLASS-1 #28Y(00 00 00 00 00 00 00 00 00 01 68 00 01 D9 AB DA 80 32 00 37 0C 68 00 02 30 85 19 01 ) NIL CLASS 2. ) :TYPE SYSTEM::WRITE-UNREADABLE ) ) #Y(#:TOP-LEVEL-FORM-63 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) DEFCLASS SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(DEFCLASS #1204Y(00 00 00 00 01 00 01 00 00 08 AC 71 4A D8 8F 01 2F 1E 9D 5B 77 9E 5B 5B 77 9F 5B 5B 5B 77 A0 5B 5B 5B 78 AD 8E 09 0E AC 8E 0E 16 62 AD 1A 80 54 AC 2E 01 19 03 DA DB DC DD 6D 03 06 DF B0 32 02 1F DA E0 E1 E2 6D 03 06 DF A1 1A 83 75 DA E3 E4 E5 6D 03 06 DF A4 1A 84 22 DA E8 E9 EA 6D 03 06 DF B3 A3 1A 84 17 DA EB EC ED 6D 03 06 CA 1A 80 4A 93 00 AA 8E 09 56 E6 E7 AC 7A 02 7A 02 83 02 16 01 82 00 9B 20 6A 16 01 AA 7F A8 00 01 02 AE 8E 0E 46 62 AF 9B 1F 82 6E 93 00 AA 62 9D 1F 06 86 02 01 9D 5B F6 AB 8E 09 FF BB AB B0 EE 37 02 8C B8 1B DA EF F0 F1 6D 03 06 CA 14 B8 A0 1A 83 BC DA F2 F3 F4 6D 03 06 DF C1 A9 1A 83 AF AB 83 05 01 09 B3 71 4A 8D 97 68 B3 1A 81 25 93 00 9C 5B 77 9C 25 1D 81 01 DA 64 1F 64 20 64 21 6D 03 06 CA 1A 80 EB AA 83 0A 1A 81 01 AA 88 1E 68 AB 23 22 72 AB 24 23 80 F4 9B 1A 1D DA 64 24 64 25 64 26 6D 03 06 CA 1A 80 C7 AA 8E 09 6E AA 83 0B AA 83 0A 64 27 AB 60 02 14 83 09 1A 80 CE DA 64 28 64 29 64 2A 6D 03 06 DF 65 1A 03 2B 1A 80 88 DA 64 2E 64 2F 64 30 6D 03 06 DF 65 1A BB 64 2C 64 2D B1 32 06 1F 91 08 55 AA 23 2C 04 AA 24 2D 5F 9B FE 1A 80 96 DA 64 31 64 32 64 33 6D 03 06 CA 1A 80 6C AA 8E 09 6E AA 83 07 1A 80 7E DA 64 34 64 35 64 36 6D 03 06 DF 65 1A 03 37 1A 39 91 06 6C E7 AB 60 02 FC AA 2E 38 FB 1A 80 5E DA 64 39 64 3A 64 3B 6D 03 06 DF 65 1A 03 3C 1A 19 91 04 6C AA 60 01 FA 1A 80 43 DA 64 3D 64 3E 64 3F 6D 03 06 DF 65 1A 03 40 14 04 12 1A 82 94 91 03 68 AA 8D 0A 25 DA 64 41 64 42 64 43 6D 03 06 CA 14 65 1A 04 11 1A 82 78 DA 64 44 64 45 64 46 6D 03 06 DF 65 1A BB A1 1A 82 68 9B F9 16 02 9B 5B 5B F6 9B 20 FE D7 16 01 B1 80 4C 07 B0 80 4C 06 B1 62 1A 1E 86 01 00 64 47 AB 64 48 65 19 7A 02 7A 01 64 49 64 48 E7 BC 7A 02 7A 03 7A 04 83 11 82 01 AB 8C 97 5E 16 02 B0 62 1A 80 7A 64 4E E7 B7 71 4C 7A 02 60 02 1A 80 80 64 4F E7 B7 7A 02 60 02 1A 80 7B 64 50 E7 B7 7A 02 60 02 1A 80 76 03 51 1A 80 78 64 52 E7 B7 71 4C 7A 02 60 02 1A 80 71 64 53 B5 60 02 1A 80 6F 64 3C E7 93 0C 7A 02 60 02 1A 80 69 64 40 E7 B6 7A 02 60 02 1A 80 64 86 01 00 64 47 AB 64 4A 64 48 65 1A 7A 02 7A 02 64 27 64 49 64 48 E7 BD 7A 02 7A 03 03 4B 7B 02 7A 04 83 11 82 01 AB 8C 97 56 16 02 64 4C 64 4D E7 B7 7A 02 91 0B FF 74 00 14 91 0B FF 7B 00 14 91 0B FF 80 00 14 B5 23 2D FF 84 00 14 91 0B FF 83 00 14 91 0B FF 8A 00 14 91 0A FF 8C 00 14 91 0A FF 92 00 14 32 08 23 61 03 16 0A F6 83 02 16 01 82 00 1A FD 8E 16 01 AA 30 A8 16 01 F6 64 54 62 64 55 64 56 64 57 E7 B6 7A 02 64 58 64 4C A5 79 64 59 64 4C A5 79 01 03 BA 62 1A 81 5F 86 01 00 14 8E 0E 81 37 93 00 9B 25 5A 1B 92 05 18 1A 03 92 04 13 DA 64 5B 64 5C 64 5D 6D 03 06 DF 04 19 1A 81 26 91 03 6D 9B 25 5E 81 0F DA 64 60 64 61 64 62 6D 03 06 CA 1A 80 F1 AB 71 4A 24 5F 80 FA 9C 5B 77 AA 8E 09 64 64 63 E6 E7 AD 7A 02 7A 02 60 02 FC 16 02 1A 81 02 94 01 9B 1F 20 9B 5B 1B 1C 93 00 8E 0E 17 86 00 00 64 64 64 65 64 66 6D 03 06 DF 65 19 AF 64 67 A0 79 2C 05 68 AA 71 4A 8E 97 1F DA 64 69 64 6A 64 6B 6D 03 06 DF 04 1A 14 A1 1A 80 B6 DA 64 6D 64 6E 64 6F 6D 03 06 CA 1A 22 64 6C 64 4C 01 02 AE 9B 1F 30 93 00 8E 09 64 93 00 AD 37 03 8C B8 14 DA 64 70 64 71 64 72 6D 03 06 CA 14 65 1F B5 A0 5A 1A 80 63 93 00 83 02 9B 5B 77 83 01 9B 5B 5B F6 1A 4D 16 01 62 AC 71 4C AC 71 4C 1A 1E 16 03 1A 1F 93 01 9C 1F 77 93 01 E7 AC 7A 02 AB 6E 38 7A 02 AF 7F A7 04 16 02 82 01 82 00 9C 20 63 16 02 AA 30 A8 16 03 79 60 02 FB 16 02 1A 80 42 9C 5B 77 AA 8D 0A 30 DA 64 73 64 74 64 75 6D 03 06 CA 14 65 1A A1 14 A0 14 32 04 1F AB 71 4A 23 5F 5E 16 01 DA 64 76 64 77 64 78 6D 03 06 DF 04 18 14 9F 14 32 03 1F 64 40 E7 AC 7A 02 60 02 FA 16 02 82 01 AB 8C 97 FE 9C 16 02 AC AC AC 32 03 23 16 03 7B 06 7A 03 AE 71 4C E6 E7 B6 7A 02 7A 02 7A 01 32 02 23 61 03 19 0A ) 4. SYSTEM::MACRO-CALL-ERROR PROGRAM-ERROR "~S: class name ~S should be a symbol" "~S: Klassenname mu▀ ein Symbol sein, nicht ~S" "~S : Le nom de classe ~S devrait Ωtre un symbole." SYSTEM::LANGUAGE DEFCLASS "~S ~S: expecting list of superclasses instead of ~S" "~S ~S: Superklassen-Liste erwartet statt ~S" "~S ~S : on s'attend α une liste de classes supΘrieures au lieu de ~S" "~S ~S: superclass name ~S should be a symbol" "~S ~S: Oberklassenname mu▀ ein Symbol sein, nicht ~S" "~S ~S : Le nom d'une classe supΘrieure doit Ωtre un symbole et non ~S" FIND-CLASS QUOTE "~S ~S: expecting list of slot specifications instead of ~S" "~S ~S: Slotspezifikationen-Liste erwartet statt ~S" "~S ~S : on s'attend α une liste de spΘcifications de composants au lieu de ~S" "~S ~S: slot name ~S should be a symbol" "~S ~S: Slotname mu▀ ein Symbol sein, nicht ~S" "~S ~S : Le nom de composant ~S doit Ωtre un symbole et non ~S" #.#'EQ "~S ~S: There may be only one direct slot with the name ~S." "~S ~S: Es kann nicht mehrere direkte Slots mit demselben Namen ~S geben." "~S ~S : Il ne peut pas y avoir plusieurs composants directs avec le mΩme nom ~S." "~S ~S: slot options for slot ~S don't come in pairs" "~S ~S: Slot-Optionen zu Slot ~S sind nicht paarig." "~S ~S : Les options pour le composant ~S ne viennent pas deux α deux." #S(HASH-TABLE EQ (:DOCUMENTATION . 233.) (:TYPE . 202.) (:INITFORM . 170.) (:INITARG . 143.) (:ALLOCATION . 113.) (:ACCESSOR . 52.) (:WRITER . 22.) (:READER . 22.) ) FUNCTION-NAME-P "~S ~S, slot option for slot ~S: ~S is not a function name" "~S ~S, Slot-Option zu Slot ~S: ~S ist kein Funktionsname." "~S ~S, option pour composant ~S : ~S n'est pas le nom d'une fonction." :READER :WRITER "~S ~S, slot option for slot ~S: ~S is not a symbol" "~S ~S, Slot-Option zu Slot ~S: ~S ist kein Symbol." "~S ~S, option pour composant ~S : ~S n'est pas un symbole." SETF "~S ~S, slot option ~S for slot ~S may only be given once" "~S ~S, Slot-Option ~S zu Slot ~S darf nur einmal angegeben werden." "~S ~S, l'option ~S pour le composant ~S ne peut Ωtre spΘcifiΘe qu'une seule fois." :ALLOCATION :INSTANCE :CLASS "~S ~S, slot option for slot ~S must have the value ~S or ~S, not ~S" "~S ~S, Slot-Option zu Slot ~S mu▀ den Wert ~S oder ~S haben, nicht ~S" "~S ~S, l'option ~S pour le composant ~S doit avoir la valeur ~S ou ~S et non ~S" "~S ~S, slot option for slot ~S: ~S is not a symbol" "~S ~S, Slot-Option zu Slot ~S: ~S ist kein Symbol." "~S ~S, option pour composant ~S : ~S n'est pas un symbole." "~S ~S, slot option ~S for slot ~S may only be given once" "~S ~S, Slot-Option ~S zu Slot ~S darf nur einmal angegeben werden." "~S ~S, l'option ~S pour le composant ~S ne peut Ωtre spΘcifiΘe qu'une seule fois." :INITFORM MAKE-INITER "~S ~S, slot option ~S for slot ~S may only be given once" "~S ~S, Slot-Option ~S zu Slot ~S darf nur einmal angegeben werden." "~S ~S, l'option ~S pour le composant ~S ne peut Ωtre spΘcifiΘe qu'une seule fois." :TYPE "~S ~S, slot option ~S for slot ~S may only be given once" "~S ~S, Slot-Option ~S zu Slot ~S darf nur einmal angegeben werden." "~S ~S, l'option ~S pour le composant ~S ne peut Ωtre spΘcifiΘe qu'une seule fois." :DOCUMENTATION "~S ~S, slot option for slot ~S: ~S is not a string" "~S ~S, Slot-Option zu Slot ~S: ~S ist kein String." "~S ~S, option pour composant ~S : ~S n'est pas une chaεne." "~S ~S, slot option for slot ~S: ~S is not a valid slot option" "~S ~S, Slot-Option zu Slot ~S: ~S ist keine gⁿltige Slot-Option." "~S ~S, option pour composant ~S : ~S n'est pas une option valable." DEFMETHOD OBJECT SLOT-VALUE NEW-VALUE (NEW-VALUE) LIST :NAME :ACCESSORS :READERS :WRITERS (:ALLOCATION :CLASS) :INITARGS :INITER LET EVAL-WHEN (COMPILE LOAD EVAL) ENSURE-CLASS :DIRECT-SUPERCLASSES :DIRECT-SLOTS #S(HASH-TABLE EQ (:DOCUMENTATION . 25.) (:DEFAULT-INITARGS . 6.) (:METACLASS . 1.) ) "~S ~S, option ~S may only be given once" "~S ~S, Option ~S darf nur einmal angegeben werden." "~S ~S, l'option ~S ne peut Ωtre spΘcifiΘe qu'une seule fois." #S(HASH-TABLE EQ (:DOCUMENTATION . 267.) (:DEFAULT-INITARGS . 47.) (:METACLASS . 16.) ) 2. "~S ~S, option ~S: ~S is not a symbol" "~S ~S, Option ~S: ~S ist kein Symbol." "~S ~S, option ~S : ~S n'est pas un symbole." :METACLASS "~S ~S: option ~S should be written ~S" "~S ~S: Option ~S sollte als ~S geschrieben werden." "~S ~S : L'option ~S devrait Ωtre Θcrite ~S." :DEFAULT-INITARGS WARN "~S ~S, option ~S: arguments don't come in pairs" "~S ~S, Option ~S: Argumente sind nicht paarig." "~S ~S, option ~S : Les arguments ne viennent pas deux α deux." :DIRECT-DEFAULT-INITARGS "~S ~S, option ~S: ~S is not a symbol" "~S ~S, Option ~S: ~S ist kein Symbol." "~S ~S, option ~S : ~S n'est pas un symbole." "~S ~S, option ~S: ~S may only be given once" "~S ~S, Option ~S: ~S darf nur einmal angegeben werden." "~S ~S, option ~S : ~S ne peut Ωtre spΘcifiΘ qu'une seule fois." "~S ~S, option ~S: ~S is not a string" "~S ~S, Option ~S: ~S ist kein String." "~S ~S, option ~S : ~S n'est pas une chaεne." "~S ~S: invalid option ~S" "~S ~S: Ungⁿltige Option ~S" "~S ~S : option invalide ~S" ) ) #Y(#:TOP-LEVEL-FORM-64 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAKE-INITER SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-INITER #35Y(00 00 00 00 01 00 00 00 00 02 AB 8B 62 0E D8 DA DB 62 AF 7A 03 7A 02 C7 61 02 19 02 D8 D9 AD 60 03 19 02 ) CONS 'NIL FUNCTION LAMBDA ('NIL) ) ) #Y(#:TOP-LEVEL-FORM-65 #168Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 62 DC 72 04 00 31 8A DD 30 5E DE 30 5E DF 2E 08 DF E1 E2 31 8A DF E3 31 84 E4 30 5E E5 30 5E E6 2E 08 E6 E1 E7 31 8A E6 E8 31 84 E9 30 5E EA 30 5E EB 2E 08 EB E1 EC 31 8A EB ED 31 84 EE 30 5E EF 30 5E F0 2E 08 F0 E1 F1 31 8A F0 F2 31 84 DF F3 F4 03 1D 79 31 8A DF 64 1E 62 2C 03 1F E6 F3 F4 03 20 79 31 8A E6 64 1E 62 2C 03 1F EB F3 F4 03 21 79 31 8A EB 64 1E 62 2C 03 1F F0 F3 F4 03 22 79 31 8A F0 64 1E 62 2C 03 1F D8 64 23 62 2C 03 1F D8 64 24 31 8B C3 19 01 ) SLOT-DEFINITION SYSTEM::DEFSTRUCT-DESCRIPTION (SLOT-DEFINITION) VECTOR (#(NAME (:NAME) 0. (NIL) NIL SYMBOL NIL) #(INITARGS (:INITARGS) 1. (NIL) 'NIL LIST NIL) #(LOCATION (:LOCATION) 2. (NIL) NIL (OR NULL INTEGER CONS) NIL) #(INITER (:INITER) 3. (NIL) NIL (OR NULL CONS) NIL) ) (FUNCTION SLOTDEF-NAME (SLOT-DEFINITION) SYMBOL) (INLINE SLOTDEF-NAME) SLOTDEF-NAME SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::INLINE-EXPANSION (#1=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN SLOTDEF-NAME)) (BLOCK SLOTDEF-NAME (THE SYMBOL (SVREF SYSTEM::OBJECT 0.))) ) #Y(SLOTDEF-NAME #15Y(00 00 00 00 01 00 00 00 00 02 AB C3 5E 19 02) 0.) (FUNCTION SLOTDEF-INITARGS (SLOT-DEFINITION) LIST) (INLINE SLOTDEF-INITARGS) SLOTDEF-INITARGS (#1# (DECLARE (SYSTEM::IN-DEFUN SLOTDEF-INITARGS)) (BLOCK SLOTDEF-INITARGS (THE LIST (SVREF SYSTEM::OBJECT 1.))) ) #Y(SLOTDEF-INITARGS #15Y(00 00 00 00 01 00 00 00 00 02 AB C3 5E 19 02) 1.) (FUNCTION SLOTDEF-LOCATION (SLOT-DEFINITION) #2=(OR NULL INTEGER CONS)) (INLINE SLOTDEF-LOCATION) SLOTDEF-LOCATION (#1# (DECLARE (SYSTEM::IN-DEFUN SLOTDEF-LOCATION)) (BLOCK SLOTDEF-LOCATION (THE #2# (SVREF SYSTEM::OBJECT 2.))) ) #Y(SLOTDEF-LOCATION #15Y(00 00 00 00 01 00 00 00 00 02 AB C3 5E 19 02) 2.) (FUNCTION SLOTDEF-INITER (SLOT-DEFINITION) #3=(OR NULL CONS)) (INLINE SLOTDEF-INITER) SLOTDEF-INITER (#1# (DECLARE (SYSTEM::IN-DEFUN SLOTDEF-INITER)) (BLOCK SLOTDEF-INITER (THE #3# (SVREF SYSTEM::OBJECT 3.))) ) #Y(SLOTDEF-INITER #15Y(00 00 00 00 01 00 00 00 00 02 AB C3 5E 19 02) 3.) SYSTEM::SETF-EXPANDER -1. #Y(SETF-SLOTDEF-NAME #24Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA 7A 03 AE 60 03 19 04 ) SETF SVREF 0. ) SETF SYSTEM::%SET-DOCUMENTATION #Y(SETF-SLOTDEF-INITARGS #24Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA 7A 03 AE 60 03 19 04 ) SETF SVREF 1. ) #Y(SETF-SLOTDEF-LOCATION #24Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA 7A 03 AE 60 03 19 04 ) SETF SVREF 2. ) #Y(SETF-SLOTDEF-INITER #24Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA 7A 03 AE 60 03 19 04 ) SETF SVREF 3. ) STRUCTURE SYSTEM::STRUCTURE-PRINT ) #Y(#:TOP-LEVEL-FORM-66 #84Y(00 00 00 00 00 00 00 00 00 01 D8 C4 79 DA 2E 03 DA DC 31 84 D8 DD AC DE 62 DF 72 04 00 31 8A 16 01 E0 2E 03 E0 E1 31 84 E2 30 5E E3 30 5E E4 2E 03 E4 E5 E6 31 8A E4 E7 31 84 E4 E8 E9 D5 79 31 8A E4 EB 62 2C 03 14 D8 ED 62 2C 03 14 D8 EE 31 8B C3 19 01 ) STANDARD-SLOT-DEFINITION #.(SVREF (GET 'SLOT-DEFINITION 'SYSTEM::DEFSTRUCT-DESCRIPTION) 0.) MAKE-STANDARD-SLOT-DEFINITION SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-STANDARD-SLOT-DEFINITION #20Y(00 00 00 00 05 00 00 00 00 06 AF AE AE AE B2 32 05 00 19 06) ) SYSTEM::DEFSTRUCT-DESCRIPTION VECTOR (#(NAME (:NAME) 0. (NIL) NIL SYMBOL NIL) #(INITARGS (:INITARGS) 1. (NIL) 'NIL LIST NIL) #(LOCATION (:LOCATION) 2. (NIL) NIL (OR NULL INTEGER CONS) NIL) #(INITER (:INITER) 3. (NIL) NIL (OR NULL CONS) NIL) #(ALLOCATION (:ALLOCATION) 4. (NIL . :INSTANCE) :INSTANCE (OR (MEMBER :CLASS :INSTANCE) CLASS) NIL ) ) COPY-STANDARD-SLOT-DEFINITION #Y(COPY-STANDARD-SLOT-DEFINITION #15Y(00 00 00 00 01 00 00 00 00 02 AB 30 02 19 02) ) (FUNCTION SLOTDEF-ALLOCATION (STANDARD-SLOT-DEFINITION) #1=(OR (MEMBER :CLASS :INSTANCE) CLASS) ) (INLINE SLOTDEF-ALLOCATION) SLOTDEF-ALLOCATION SYSTEM::INLINE-EXPANSION ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN SLOTDEF-ALLOCATION)) (BLOCK SLOTDEF-ALLOCATION (THE #1# (SVREF SYSTEM::OBJECT 4.))) ) #Y(SLOTDEF-ALLOCATION #15Y(00 00 00 00 01 00 00 00 00 02 AB C3 5E 19 02) 4.) SYSTEM::SETF-EXPANDER -1. #Y(SETF-SLOTDEF-ALLOCATION #24Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA 7A 03 AE 60 03 19 04 ) SETF SVREF 4. ) SETF SYSTEM::%SET-DOCUMENTATION STRUCTURE SYSTEM::STRUCTURE-PRINT ) #Y(#:TOP-LEVEL-FORM-67 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAKE-SLOTDEF SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-SLOTDEF #38Y(00 00 00 00 00 00 00 00 80 1B 0B 00 00 00 3C 0B 3A 0A 03 CE 09 0A 3C 09 3C 08 3C 07 B5 B5 B5 B5 B5 2C 05 0C 19 0C ) :NAME :ALLOCATION :INITARGS :LOCATION :INITER :INITFORM :ACCESSORS :READERS :WRITERS :TYPE :DOCUMENTATION :INSTANCE MAKE-STANDARD-SLOT-DEFINITION ) ) #Y(#:TOP-LEVEL-FORM-68 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) ENSURE-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(ENSURE-CLASS #245Y(00 00 00 00 01 00 00 00 C1 00 05 00 00 00 3A 05 03 0E 05 FB 3C 04 3C 03 3C 02 3C 01 B1 62 37 01 71 2D 92 00 80 A9 B0 0E 05 22 80 8B B0 AB 31 2C 22 80 84 AF DE AC DF 71 32 8E 05 80 7A AE E0 AC E1 71 32 8A 0A 80 70 AD E0 AC E3 71 32 8A 0C 80 66 E0 AB E1 71 32 AF 92 00 26 93 01 E5 37 01 71 87 93 01 E5 37 01 71 87 92 01 0A 14 93 01 30 AD AB 94 01 30 AF 16 02 94 01 82 01 69 01 91 00 5A 16 02 E0 AB E3 71 32 AE 92 00 1E 9C 5B 77 9C 5B 77 AB 93 01 30 AD AB 94 01 30 AF 16 02 9C 5B 78 9C 5B 5B F7 69 01 91 00 62 16 02 92 02 06 B2 E6 AE 2C 03 0F 15 19 08 E8 E9 EA EB 6D 03 14 ED B5 32 02 1F 97 16 1A 22 97 18 1A 1E 97 1A 1A 1A 92 02 06 B2 E6 AE 2C 03 0F B0 0E 05 21 66 B0 0E 17 21 65 B0 0E 19 21 64 97 1B 14 B1 F4 B5 A6 76 03 B3 2F 1D 19 09 ) :METACLASS :DIRECT-SUPERCLASSES :DIRECT-SLOTS :DIRECT-DEFAULT-INITARGS :DOCUMENTATION <STANDARD-CLASS> CLASS 3. STANDARD-CLASS 12. EQUAL-SLOTS 13. EQUAL-DEFAULT-INITARGS :INITER TYPE SYSTEM::%SET-DOCUMENTATION ERROR "~S: Cannot redefine class ~S" "~S: Klasse ~S kann nicht umdefiniert werden." "~S : La classe ~S ne peut pas Ωtre redΘfinie." SYSTEM::LANGUAGE DEFCLASS MAKE-INSTANCE-STANDARD-CLASS <BUILT-IN-CLASS> MAKE-INSTANCE-BUILT-IN-CLASS <STRUCTURE-CLASS> MAKE-INSTANCE-STRUCTURE-CLASS MAKE-INSTANCE :NAME #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) ) #Y(#:TOP-LEVEL-FORM-69 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) EQUAL-SLOTS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(EQUAL-SLOTS #50Y(00 00 00 00 02 00 00 00 00 03 92 02 05 1A 07 91 02 04 9C 58 1D 1A AC 31 07 1E 15 AB 31 07 1E 10 93 02 93 02 2F 00 1E 08 94 02 94 02 28 02 05 5F 19 03 ) EQUAL-SLOT ) ) #Y(#:TOP-LEVEL-FORM-70 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) EQUAL-SLOT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(EQUAL-SLOT #63Y(00 00 00 00 02 00 00 00 00 03 92 02 13 1A 15 16 01 9D 5B 77 9D 5B 77 31 05 1E 22 1A 16 91 02 04 9C 58 1D 19 93 02 9D 5A 59 1E 12 93 02 AA 24 00 5E 16 01 9D 5B 78 9D 5B 78 28 02 05 60 19 03 ) :INITER ) ) #Y(#:TOP-LEVEL-FORM-71 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) EQUAL-DEFAULT-INITARGS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(EQUAL-DEFAULT-INITARGS #51Y(00 00 00 00 02 00 00 00 00 03 92 02 05 1A 07 91 02 04 9C 58 1D 1B AC 31 07 1E 16 AB 31 07 1E 11 93 02 9D 5A 59 1E 0A 9D 5B 78 9D 5B 78 28 02 05 5E 19 03 ) ) ) #Y(#:TOP-LEVEL-FORM-72 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) ADD-DEFAULT-SUPERCLASS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(ADD-DEFAULT-SUPERCLASS #30Y(00 00 00 00 02 00 00 00 00 03 AB AD D8 37 02 8B B8 09 AC AC 7A 01 32 02 23 19 03 9D 19 03 ) #.#'EQ ) ) #Y(#:TOP-LEVEL-FORM-73 #47Y(00 00 00 00 00 00 00 00 00 01 00 2A 01 00 0B 00 00 D8 2E 01 D8 AB 6C 02 01 31 84 DB 2E 01 DB DC 31 84 DD 2E 01 DD AB 6C 06 01 31 84 C8 19 02 ) DEF-UNBOUND SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DEF-UNBOUND #16Y(00 00 00 00 01 00 00 00 00 02 9C 0C 00 01 19 02) NIL) MAKE-INSTANCE-STANDARD-CLASS #Y(MAKE-INSTANCE-STANDARD-CLASS #30Y(00 00 00 00 01 00 00 00 C1 00 04 00 00 00 3C 04 DC AF DD B3 6D 04 06 98 07 AB A3 9A 01 08 ) :NAME :DIRECT-SUPERCLASSES :DIRECT-SLOTS :DIRECT-DEFAULT-INITARGS :CLASSNAME :METACLASS MAKE-STANDARD-CLASS INITIALIZE-INSTANCE-STANDARD-CLASS ) INITIALIZE-INSTANCE-STANDARD-CLASS #Y(INITIALIZE-INSTANCE-STANDARD-CLASS #340Y(00 00 00 00 01 00 00 00 C0 1C 04 00 01 00 3C 04 3C 03 3C 02 3C 01 98 05 AE 90 00 28 80 6D AD 70 A3 E4 B1 E5 AD 31 33 16 01 AF AE 6A 0E 6F 0F 6F 10 E4 B1 E9 AD 31 33 16 01 E4 B0 E9 71 32 6E 12 E4 B1 EB AD 31 33 16 01 EC B0 ED AF 31 33 AF 6E 16 EF B1 F0 AD 31 33 16 01 37 05 03 19 F9 70 67 E4 B1 F2 AD 31 33 16 01 EF B0 F3 F4 31 33 AF EF B1 F0 71 32 6F 1D AA 8E 95 80 63 AA 37 07 70 1C 64 1E EF B3 F0 71 32 AA 1A 80 41 DE DF E0 E1 6D 03 0A E3 B1 98 05 B2 37 04 71 61 32 03 1F 93 00 35 00 1A 11 5A 1B 77 9B 5B 1A 0A AA D0 5E 14 91 00 72 07 00 01 F6 AF A0 5F 84 03 16 01 1A 0B 93 00 AA D6 5E 14 A7 21 63 16 01 82 00 9B 20 70 16 02 9C 16 01 F6 EC B2 64 1F AD 31 33 16 01 16 01 EC B0 64 20 AE 31 33 62 E4 B1 E9 71 32 1A 1B EC AB 64 20 71 32 2E 21 1A 08 93 00 EC AB 8D 36 6F 00 14 AD 7F A7 02 16 01 82 00 9B 20 6C 16 01 AA 7F A8 00 63 37 05 03 22 F8 71 57 EF B1 64 23 AD 31 33 16 01 62 EF B1 F0 71 32 1A 0F 93 00 AA 03 1C 5E 14 AD 7F A6 02 16 01 82 00 9B 20 6E 16 01 AA 7F A8 00 37 06 71 57 EF B1 64 24 AD 31 33 16 01 A0 19 06 ) NIL :NAME :DIRECT-SUPERCLASSES :DIRECT-SLOTS :DIRECT-DEFAULT-INITARGS STANDARD-CLASS-P ERROR "~S ~S: superclass ~S should belong to class STANDARD-CLASS" "~S ~S: Oberklasse ~S sollte zur Klasse STANDARD-CLASS geh÷ren." "~S ~S : La classe supΘrieure ~S n'appartient pas α la classe STANDARD-CLASS." SYSTEM::LANGUAGE DEFCLASS CLASS 3. <STANDARD-OBJECT> ADD-DEFAULT-SUPERCLASS STD-COMPUTE-CPL 5. STD-COMPUTE-SUPERCLASSES 4. STANDARD-CLASS 12. STD-COMPUTE-SLOTS SLOTTED-CLASS 7. #.#'EQ 6. 10. 1. STD-LAYOUT-SLOTS 0. 11. 13. PLIST-TO-ALIST #.#'CAR 8. 9. ) ) #Y(#:TOP-LEVEL-FORM-74 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) STD-COMPUTE-CPL SYSTEM::REMOVE-OLD-DEFINITIONS #Y(STD-COMPUTE-CPL #369Y(00 00 00 00 02 00 00 00 00 03 00 2A 02 62 AD 1A 0F 93 00 D8 AB D9 71 32 AD 7F A6 02 16 01 82 00 9B 20 6E 16 01 AA 7F A8 00 37 06 71 57 62 AF A0 79 60 01 0B 02 00 62 AC 1A 80 7B DD DE DF E0 6D 03 09 E2 D8 B4 E3 71 32 67 07 00 67 08 01 72 02 23 9B 5A 77 7A 01 93 00 AC 62 1A 27 AC 94 01 37 06 71 62 AB 30 99 16 02 1A 20 CF 16 02 1A 32 AA 83 02 16 02 1A 60 86 01 00 AC 94 01 37 03 8B B8 5B 82 01 AB 8C 97 6F 00 16 02 14 92 00 5C AA AD 37 03 8C B8 5A AA AD 37 03 70 B8 62 30 AF 9D 16 02 16 01 F6 32 03 1F 93 00 AA D8 AC DA 31 32 79 83 02 16 01 82 00 9B 20 6E 16 01 AA 30 A8 16 01 0B 02 01 06 02 00 1C 80 6A DB 67 03 00 72 00 17 63 37 05 71 57 AD 6C 04 01 AB 37 05 80 52 00 1C FF 59 93 00 AA 83 02 AA 67 05 01 37 03 70 BF 06 05 00 5C 0B 04 00 AA 67 05 01 37 07 C6 F9 31 54 0B 04 01 67 04 00 AA 1A 12 9B 5A 77 9E 22 0A 93 00 82 00 AB AB 30 AD 16 01 82 00 9B 20 6B 16 02 E5 67 05 00 37 05 31 55 0B 04 00 16 02 06 02 00 1B FF 96 AA 80 4C 00 AE 1A 2F 93 00 AC D8 AC D9 71 32 91 00 09 16 03 1A 1E 82 00 92 00 77 93 00 AC 37 03 7F B8 01 1B 71 16 02 E6 E7 E8 6D 03 09 B2 AC 2C 03 11 16 01 82 00 9B 20 4E 16 01 15 19 05 ) CLASS 5. 3. #.#'FIRST #Y(STD-COMPUTE-CPL-1 #70Y(00 00 00 00 01 00 00 00 00 02 68 00 01 62 1A 13 02 16 02 3E 19 02 86 01 00 AD 94 01 37 03 8B B8 6F 82 01 AB 8C 97 6F 16 02 68 00 02 62 1A 10 02 19 04 86 01 00 AD 94 01 37 03 8B B8 72 82 01 AB 8C 97 6F 00 19 04 ) NIL ) ERROR "~S ~S: inconsistent precedence graph, cycle ~S" "~S ~S: Inkonsistenter PrΣzedenz-Graph, Zyklus ~S" "~S ~S : graphe de prΘcΘdences contradictoire, cycle ~S" SYSTEM::LANGUAGE DEFCLASS 2. ?? #.#'NULL "(class-precedence-list ~S) and (class-precedence-list ~S) are inconsistent" "(class-precedence-list ~S) und (class-precedence-list ~S) sind nicht vertrΣglich." "(class-precedence-list ~S) et (class-precedence-list ~S) sont contradictoires." WARN ) ) #Y(#:TOP-LEVEL-FORM-75 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) STD-COMPUTE-SUPERCLASSES SYSTEM::REMOVE-OLD-DEFINITIONS #Y(STD-COMPUTE-SUPERCLASSES #38Y(00 00 00 00 01 00 00 00 00 02 37 05 C3 F9 70 67 AC 1A 0B 93 00 AA AD 63 30 69 16 01 82 00 9B 20 72 16 01 15 19 02 ) #.#'EQ ) ) #Y(#:TOP-LEVEL-FORM-76 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) PLIST-TO-ALIST SYSTEM::REMOVE-OLD-DEFINITIONS #Y(PLIST-TO-ALIST #35Y(00 00 00 00 01 00 00 00 00 02 62 92 02 10 93 02 9E 5B 77 AC 7F BD 00 9D 5B 5B F8 91 02 70 AA 31 4C 19 03 ) ) ) #Y(#:TOP-LEVEL-FORM-77 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) ALIST-TO-PLIST SYSTEM::REMOVE-OLD-DEFINITIONS #Y(ALIST-TO-PLIST #40Y(00 00 00 00 01 00 00 00 00 02 62 AC 1A 10 93 00 93 00 94 01 7A 02 AD 7F A7 02 16 01 82 00 9B 20 6D 16 01 AA 30 A8 19 03 ) ) ) #Y(#:TOP-LEVEL-FORM-78 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) STD-COMPUTE-SLOTS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(STD-COMPUTE-SLOTS #368Y(01 00 01 00 01 00 01 00 00 08 3C 01 62 D8 AE D9 71 32 1A 80 50 DA AC DB 31 32 1A 0C A1 1A 0F 93 00 62 DA AC 8D 36 6E 00 14 AC A3 21 6F 00 14 72 02 23 1A 20 93 00 AA AA 2E 04 F6 DD AB 37 03 30 BF 78 24 06 09 DD AB 37 03 70 BF AF 30 AF 83 02 16 01 82 00 9B 20 5D 16 01 AA 7F A8 00 AD 7F A7 02 16 01 82 00 9B 20 FF B6 16 01 AA 7F A8 00 37 05 CA F9 70 67 AB 62 1A 80 52 86 01 00 1A 32 00 2A 01 00 0B 00 00 4A 09 1F E0 E2 E3 B1 B0 6C 0C 02 E5 98 0E E7 E8 6D 08 11 0E 12 5C 10 12 EB EC ED EE 6D 03 17 32 01 1E 06 04 00 38 00 00 4C 16 01 9B 5A 77 24 08 48 94 00 9C 5A 78 AB AB B0 62 30 68 79 AB B0 AC 30 69 16 03 82 01 AB 8C 97 FF A9 16 02 00 2A 01 00 0B 00 00 AA 6C 18 01 AC 30 6B 06 00 00 16 02 F6 62 AB 1A 80 79 93 00 93 00 94 01 98 19 E0 AD DD 93 04 37 03 8B BF 02 03 1A 14 62 AF 1A 18 F3 9C 79 60 01 1A 23 93 00 F3 AB 37 03 30 BF 78 AD 7F A6 02 16 01 82 00 9B 20 6C 16 01 AA 7F A8 00 63 37 05 71 57 91 00 57 00 F6 AF 62 1A 18 F4 AB 37 03 70 BF 60 01 16 02 1A 13 86 01 00 F4 AB 37 03 8B BF 6A 82 01 AB 8C 97 70 00 16 02 14 32 02 23 79 2E 1D 36 02 16 01 F6 83 02 16 01 82 00 9B 20 FF 83 16 01 AA 30 A8 19 05 ) CLASS 5. STANDARD-CLASS 12. PLIST-TO-ALIST :ALLOCATION :CLASS #.#'EQ :NAME #(NIL) CONTINUE :INVOKE-FUNCTION #Y(STD-COMPUTE-SLOTS-1 #17Y(00 00 00 00 00 00 00 00 01 16 9C 0C 00 01 4D 01 00) NIL NIL ) :REPORT SYSTEM::REPORT-NO-NEW-VALUE :INTERACTIVE #Y(STD-COMPUTE-SLOTS-2 #13Y(00 00 00 00 00 00 00 00 00 01 00 19 01)) SYSTEM::MAKE-RESTART SYSTEM::*ACTIVE-RESTARTS* "~A" "(EQ (CAAR SLOT) ':NAME) must evaluate to a non-NIL value." "Der Wert von (EQ (CAAR SLOT) ':NAME) darf nicht NIL sein." "La valeur de (EQ (CAAR SLOT) ':NAME) ne peut pas Ωtre NIL." SYSTEM::LANGUAGE #Y(STD-COMPUTE-SLOTS-3 #24Y(00 00 00 00 02 00 00 00 00 03 AC AC 31 4C 79 07 00 01 5C 0C 00 01 19 03 ) NIL ) MAKE-SLOTDEF (:ALLOCATION . :INSTANCE) :INITARGS :INITER ALIST-TO-PLIST ) ) #Y(#:TOP-LEVEL-FORM-79 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) STD-LAYOUT-SLOTS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(STD-LAYOUT-SLOTS #94Y(00 00 00 00 02 00 00 00 00 03 D8 AD D9 71 32 DA AE DB 71 32 DC AE 1A 38 AF 84 06 15 1A 24 B3 A0 79 84 05 15 1A 1C 93 00 AA C7 5E 14 AB C8 5E 14 AA 23 06 64 AA A5 21 66 AB D8 AC D9 71 32 37 01 30 68 14 AA AE CA 5F AC B2 AC 30 69 16 04 82 00 9B 20 53 16 01 DA B0 DB AE 31 33 15 19 05 ) CLASS 6. SLOTTED-CLASS 10. 0. 4. :INSTANCE 2. ) ) #Y(#:TOP-LEVEL-FORM-80 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAKE-INSTANCE-BUILT-IN-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-INSTANCE-BUILT-IN-CLASS #91Y(00 00 00 00 01 00 00 00 C0 1C 02 00 00 00 3C 02 3C 01 98 02 AC 90 00 28 30 E0 AD E1 B0 6D 04 0A AC 70 A3 E3 AC E4 AD 31 33 16 01 AA AD 6F 0D E3 AC E6 AD 31 33 16 01 E3 AB E6 71 32 6E 0F E3 AC E8 AD 31 33 16 01 15 19 04 DB DC DD DE 6D 03 07 AE 98 02 AF 37 04 71 61 32 02 1F ) :NAME :DIRECT-SUPERCLASSES BUILT-IN-CLASS-P ERROR "~S: superclass ~S should belong to class BUILT-IN-CLASS" "~S: Oberklasse ~S sollte zur Klasse BUILT-IN-CLASS geh÷ren." "~S : La classe supΘrieure ~S n'appartient pas α la classe BUILT-IN-CLASS." SYSTEM::LANGUAGE :CLASSNAME :METACLASS MAKE-BUILT-IN-CLASS CLASS 3. STD-COMPUTE-CPL 5. STD-COMPUTE-SUPERCLASSES 4. ) ) #Y(#:TOP-LEVEL-FORM-81 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAKE-INSTANCE-STRUCTURE-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-INSTANCE-STRUCTURE-CLASS #30Y(00 00 00 00 01 00 00 00 C1 00 07 00 00 00 3C 07 DF B2 E0 B6 6D 04 09 98 0A AB A6 9A 01 0B ) :NAME :DIRECT-SUPERCLASSES :DIRECT-SLOTS :DIRECT-DEFAULT-INITARGS :NAMES :SLOTS :SIZE :CLASSNAME :METACLASS MAKE-STRUCTURE-CLASS INITIALIZE-INSTANCE-STRUCTURE-CLASS ) ) #Y(#:TOP-LEVEL-FORM-82 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) INITIALIZE-INSTANCE-STRUCTURE-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(INITIALIZE-INSTANCE-STRUCTURE-CLASS #386Y(00 00 00 00 01 00 00 00 C0 1C 07 00 00 00 3C 07 3C 06 3C 05 3C 04 3C 03 3C 02 3A 01 02 CA F7 A1 5B 1B 80 60 98 0D B1 90 00 28 80 63 B0 70 A3 E9 B4 EA AD 31 33 16 01 B2 B1 6A 13 6F 14 6A 15 6F 14 6F 16 E9 B4 EF AD 31 33 16 01 E9 B3 EF 71 32 6E 18 E9 B4 F1 AD 31 33 16 01 91 03 1E B1 91 07 3B 00 5C F9 92 06 14 77 F4 AB F5 31 32 16 01 F8 93 06 F4 AB 64 1E 31 32 16 01 F7 37 05 03 1F F9 62 B2 1A 35 E0 E1 E2 E3 6D 03 0C A4 1A 80 67 E0 E6 E7 E8 6D 03 0C B3 93 09 32 02 1F 77 F2 AB F3 31 32 16 01 1A FF BB 93 00 AA 03 20 5E 14 AB 03 21 5E 79 83 02 16 01 82 00 9B 20 6B 16 01 AA 30 A8 16 01 FA 70 67 E9 B4 64 22 AD 31 33 16 01 F4 B3 64 1E AE 31 33 F4 B3 F5 AF 31 33 92 05 2C B2 B0 6F 23 B3 AB 6F 24 AA 8E 95 0F E0 64 25 64 26 64 27 6D 03 0C A6 14 32 01 1F F4 B5 F5 71 32 AC 72 02 23 F4 B6 F5 AD 31 33 16 03 AE 6E 28 62 E9 B5 EF 31 32 78 1A 19 F4 AB 64 29 31 32 1A 08 93 00 F2 AB 8D 36 71 00 14 AD 7F A6 02 16 01 82 00 9B 20 6C 16 01 AA 7F A8 00 72 02 23 63 37 05 03 2A F8 71 57 F4 B4 64 29 AD 31 33 16 01 62 F4 B4 F5 71 32 1A 0E 93 00 AA CA 5E 14 AD 7F A6 02 16 01 82 00 9B 20 6F 16 01 AA 7F A8 00 37 06 71 57 F4 B4 64 2B AD 31 33 16 01 F2 B3 F3 B0 31 33 A3 19 09 ) :NAME :DIRECT-SUPERCLASSES :DIRECT-SLOTS :DIRECT-DEFAULT-INITARGS :NAMES :SLOTS :SIZE 1. ERROR "~S: metaclass STRUCTURE-CLASS forbids more than one direct superclass" "~S: Metaklasse STRUCTURE-CLASS lΣ▀t nur eine direkte Oberklasse zu." "~S : La classe mΘta STRUCTURE-CLASS ne permet qu'une seule classe supΘrieure." SYSTEM::LANGUAGE STRUCTURE-CLASS-P "~S: superclass ~S should belong to class STRUCTURE-CLASS" "~S: Oberklasse ~S sollte zur Klasse STRUCTURE-CLASS geh÷ren." "~S : La classe supΘrieure ~S n'appartient pas α la classe STRUCTURE-CLASS." CLASS 3. <STRUCTURE-OBJECT> ADD-DEFAULT-SUPERCLASS <T> STD-COMPUTE-CPL 5. STD-COMPUTE-SUPERCLASSES 4. STRUCTURE-CLASS 11. SLOTTED-CLASS 7. 10. #.#'EQ 0. 2. 6. STD-COMPUTE-SLOTS STD-LAYOUT-SLOTS "~S: metaclass STRUCTURE-CLASS does not support shared slots" "~S: Metaklasse STRUCTURE-CLASS lΣ▀t nur keine Shared Slots zu." "~S : La classe mΘta STRUCTURE-CLASS ne supporte pas les slots partagΘs." PLIST-TO-ALIST 8. #.#'CAR 9. ) ) #Y(#:TOP-LEVEL-FORM-83 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DEFINE-STRUCTURE-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DEFINE-STRUCTURE-CLASS #90Y(00 00 00 00 01 00 00 00 00 02 AB D8 37 01 71 86 91 00 1B 00 19 03 A1 5B 77 37 02 71 2D 60 01 1A 26 14 37 01 30 A1 77 CD 5E 14 31 99 1A 23 14 C4 5E 14 AB C5 5E 14 98 03 AB 37 05 71 53 6A 04 DD B1 DE A1 5B 1B 50 00 14 DF B2 E0 B2 E1 91 0B 51 CE 14 6D 0B 0C B0 2F 0D 19 06 ) SYSTEM::DEFSTRUCT-DESCRIPTION 0. 3. SYSTEM::DS-SLOT-NAME <STRUCTURE-CLASS> :NAME :DIRECT-SUPERCLASSES :NAMES :SLOTS :SIZE 2. 1. MAKE-INSTANCE-STRUCTURE-CLASS #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) ) #Y(#:TOP-LEVEL-FORM-84-1 #23Y(00 00 00 00 00 00 00 00 00 01 62 D8 63 D9 62 2C 05 02 0F 03 3D 19 01) :NAME :DIRECT-SUPERCLASSES MAKE-INSTANCE-BUILT-IN-CLASS <T> ) #Y(#:TOP-LEVEL-FORM-84-2 #17Y(00 00 00 00 00 00 00 00 00 01 2D 00 0F 01 3D 19 01) MAKE-STRUCTURE-CLASS <STRUCTURE-CLASS> ) #Y(#:TOP-LEVEL-FORM-84-3 #17Y(00 00 00 00 00 00 00 00 00 01 0E 00 0F 01 3D 19 01) <T> <STRUCTURE-OBJECT> ) #Y(#:TOP-LEVEL-FORM-84-4 #26Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 62 DC DD 2C 07 06 0F 07 3D 19 01 ) <STRUCTURE-CLASS> :NAME STRUCTURE-OBJECT :DIRECT-SUPERCLASSES :NAMES (STRUCTURE-OBJECT) MAKE-INSTANCE-STRUCTURE-CLASS <STRUCTURE-OBJECT> ) #Y(#:TOP-LEVEL-FORM-84-5 #18Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 3D 19 01) <STRUCTURE-OBJECT> STRUCTURE-OBJECT #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-84-6 #18Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 0F 02 3D 19 01) CLASS DEFINE-STRUCTURE-CLASS <CLASS> ) #Y(#:TOP-LEVEL-FORM-84-7 #67Y(00 00 00 00 00 00 00 00 00 01 D8 6E 01 DA 2E 01 0F 03 6A 04 6A 03 DD AC DE AD 31 33 16 02 6A 07 6A 03 DD AC DE AD 31 33 16 02 6A 03 DD AC DE AD 31 33 16 01 6A 03 6A 03 DD AC DE AD 31 33 16 03 3D 19 01 ) SLOTTED-CLASS DEFINE-STRUCTURE-CLASS STRUCTURE-CLASS <STRUCTURE-CLASS> <STRUCTURE-OBJECT> CLASS 1. <CLASS> ) #Y(#:TOP-LEVEL-FORM-84-8 #19Y(00 00 00 00 00 00 00 00 00 01 62 6C 00 01 30 E8 3D 19 01) #Y(#:TOP-LEVEL-FORM-84-8-1 #15Y(00 00 00 00 01 00 00 00 00 02 AB C4 33 19 02) NIL #Y(DEFINE-STRUCTURE-CLASS-WITH-INCLUDES #52Y(00 00 00 00 01 00 00 00 00 02 AB D8 37 01 8E 86 07 AB 62 37 01 8E 2D 03 00 19 02 AB D8 37 01 71 86 C4 5E 14 9B 5B 1C 05 9B 5B 77 27 5D 16 01 AB 2E 02 19 02 ) SYSTEM::DEFSTRUCT-DESCRIPTION 0. DEFINE-STRUCTURE-CLASS ) ) ) #Y(#:TOP-LEVEL-FORM-84-9 #20Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 31 2D 0F 01 3D 19 01) STANDARD-CLASS <STANDARD-CLASS> ) #Y(#:TOP-LEVEL-FORM-84-10 #20Y(00 00 00 00 00 00 00 00 00 01 D8 37 02 31 2D 0F 01 3D 19 01) BUILT-IN-CLASS <BUILT-IN-CLASS> ) #Y(#:TOP-LEVEL-FORM-84-11 #25Y(00 00 00 00 00 00 00 00 00 01 6A 00 6A 01 DA AC DB AD 31 33 16 02 3D 19 01 ) <T> <BUILT-IN-CLASS> CLASS 1. ) #Y(#:TOP-LEVEL-FORM-84-12 #18Y(00 00 00 00 00 00 00 00 00 01 6A 00 63 2F 01 3D 19 01) <T> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-84-13 #41Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 6A 03 DC 6A 05 7A 01 DE 62 DF 62 E0 6A 09 E2 E3 E4 62 E5 62 2C 12 0E 0F 0F 3D 19 01 ) :CLASSNAME STANDARD-OBJECT :METACLASS <STANDARD-CLASS> :DIRECT-SUPERCLASSES <T> :DIRECT-SLOTS :SLOTS :SLOT-LOCATION-TABLE EMPTY-HT :INSTANCE-SIZE 1. :DIRECT-DEFAULT-INITARGS :DEFAULT-INITARGS MAKE-STANDARD-CLASS <STANDARD-OBJECT> ) #Y(#:TOP-LEVEL-FORM-84-14 #42Y(00 00 00 00 00 00 00 00 00 01 6A 00 6A 00 6A 00 6A 01 7A 02 DA AC DB AD 31 33 16 01 F6 6E 04 DA AC DD AD 31 33 16 02 3D 19 01 ) <STANDARD-OBJECT> <T> CLASS 5. STD-COMPUTE-SUPERCLASSES 4. ) #Y(#:TOP-LEVEL-FORM-84-15 #18Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 2F 02 3D 19 01) <STANDARD-OBJECT> STANDARD-OBJECT #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-84-16 #22Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 6F 02 DB 71 2F 2E 04 19 01) <STANDARD-OBJECT> 2. ALLOCATE-STD-INSTANCE 1. DEF-UNBOUND ) #Y(#:TOP-LEVEL-FORM-85 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SUBCLASSP SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SUBCLASSP #23Y(00 00 00 00 02 00 00 00 00 03 AB D8 AE D9 71 32 37 01 30 68 3E 19 03 ) CLASS 4. ) ) #Y(#:TOP-LEVEL-FORM-86-1 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME CHARACTER :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <CHARACTER> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-2 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME FUNCTION :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <FUNCTION> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-3 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME STANDARD-GENERIC-FUNCTION :DIRECT-SUPERCLASSES <FUNCTION> MAKE-INSTANCE-BUILT-IN-CLASS <STANDARD-GENERIC-FUNCTION> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-4 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME HASH-TABLE :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <HASH-TABLE> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-5 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME PACKAGE :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <PACKAGE> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-6 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME PATHNAME :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <PATHNAME> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-7 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME LOGICAL-PATHNAME :DIRECT-SUPERCLASSES <PATHNAME> MAKE-INSTANCE-BUILT-IN-CLASS <LOGICAL-PATHNAME> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-8 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME RANDOM-STATE :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <RANDOM-STATE> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-9 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME READTABLE :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <READTABLE> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-10 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME STREAM :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <STREAM> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-11 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME FILE-STREAM :DIRECT-SUPERCLASSES <STREAM> MAKE-INSTANCE-BUILT-IN-CLASS <FILE-STREAM> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-12 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME SYNONYM-STREAM :DIRECT-SUPERCLASSES <STREAM> MAKE-INSTANCE-BUILT-IN-CLASS <SYNONYM-STREAM> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-13 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME BROADCAST-STREAM :DIRECT-SUPERCLASSES <STREAM> MAKE-INSTANCE-BUILT-IN-CLASS <BROADCAST-STREAM> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-14 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME CONCATENATED-STREAM :DIRECT-SUPERCLASSES <STREAM> MAKE-INSTANCE-BUILT-IN-CLASS <CONCATENATED-STREAM> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-15 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME TWO-WAY-STREAM :DIRECT-SUPERCLASSES <STREAM> MAKE-INSTANCE-BUILT-IN-CLASS <TWO-WAY-STREAM> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-16 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME ECHO-STREAM :DIRECT-SUPERCLASSES <STREAM> MAKE-INSTANCE-BUILT-IN-CLASS <ECHO-STREAM> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-17 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME STRING-STREAM :DIRECT-SUPERCLASSES <STREAM> MAKE-INSTANCE-BUILT-IN-CLASS <STRING-STREAM> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-18 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME SYMBOL :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <SYMBOL> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-19 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME SEQUENCE :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <SEQUENCE> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-20 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME LIST :DIRECT-SUPERCLASSES <SEQUENCE> MAKE-INSTANCE-BUILT-IN-CLASS <LIST> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-21 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME CONS :DIRECT-SUPERCLASSES <LIST> MAKE-INSTANCE-BUILT-IN-CLASS <CONS> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-22 #33Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 6A 05 7A 02 2C 05 06 0F 07 14 DA 2F 08 3D 19 01 ) <BUILT-IN-CLASS> :NAME NULL :DIRECT-SUPERCLASSES <SYMBOL> <LIST> MAKE-INSTANCE-BUILT-IN-CLASS <NULL> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-23 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME ARRAY :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <ARRAY> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-24 #33Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 6A 05 7A 02 2C 05 06 0F 07 14 DA 2F 08 3D 19 01 ) <BUILT-IN-CLASS> :NAME VECTOR :DIRECT-SUPERCLASSES <ARRAY> <SEQUENCE> MAKE-INSTANCE-BUILT-IN-CLASS <VECTOR> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-25 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME BIT-VECTOR :DIRECT-SUPERCLASSES <VECTOR> MAKE-INSTANCE-BUILT-IN-CLASS <BIT-VECTOR> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-26 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME STRING :DIRECT-SUPERCLASSES <VECTOR> MAKE-INSTANCE-BUILT-IN-CLASS <STRING> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-27 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME NUMBER :DIRECT-SUPERCLASSES <T> MAKE-INSTANCE-BUILT-IN-CLASS <NUMBER> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-28 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME COMPLEX :DIRECT-SUPERCLASSES <NUMBER> MAKE-INSTANCE-BUILT-IN-CLASS <COMPLEX> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-29 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME REAL :DIRECT-SUPERCLASSES <NUMBER> MAKE-INSTANCE-BUILT-IN-CLASS <REAL> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-30 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME FLOAT :DIRECT-SUPERCLASSES <REAL> MAKE-INSTANCE-BUILT-IN-CLASS <FLOAT> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-31 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME RATIONAL :DIRECT-SUPERCLASSES <REAL> MAKE-INSTANCE-BUILT-IN-CLASS <RATIONAL> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-32 #31Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 3D 19 01 ) <BUILT-IN-CLASS> :NAME RATIO :DIRECT-SUPERCLASSES <RATIONAL> MAKE-INSTANCE-BUILT-IN-CLASS <RATIO> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-86-33 #30Y(00 00 00 00 00 00 00 00 00 01 6A 00 D9 DA DB 6A 04 7A 01 2C 05 05 0F 06 14 DA 2F 07 19 01 ) <BUILT-IN-CLASS> :NAME INTEGER :DIRECT-SUPERCLASSES <RATIONAL> MAKE-INSTANCE-BUILT-IN-CLASS <INTEGER> #.(SYSTEM::GET-SETF-SYMBOL 'FIND-CLASS) ) #Y(#:TOP-LEVEL-FORM-87 #84Y(00 00 00 00 00 00 00 00 00 01 D8 D9 37 01 71 86 C5 5E 14 6A 03 6A 04 6A 05 6A 06 6A 07 6A 08 6A 09 6A 0A 6A 0B 6A 0C 6A 0D 6A 0E 6A 0F 6A 10 6A 11 6A 12 6A 13 6A 14 6A 15 6A 16 6A 17 6A 18 6A 19 6A 1A 6A 1B 6A 1C 6A 1D 6A 1E 6A 1F 72 1D 00 2F 20 19 01 ) CLASS SYSTEM::DEFSTRUCT-DESCRIPTION 0. <ARRAY> <BIT-VECTOR> <CHARACTER> <COMPLEX> <CONS> <FLOAT> <FUNCTION> <HASH-TABLE> <INTEGER> <NULL> <PACKAGE> <PATHNAME> <LOGICAL-PATHNAME> <RANDOM-STATE> <RATIO> <READTABLE> <STANDARD-GENERIC-FUNCTION> <STREAM> <FILE-STREAM> <SYNONYM-STREAM> <BROADCAST-STREAM> <CONCATENATED-STREAM> <TWO-WAY-STREAM> <ECHO-STREAM> <STRING-STREAM> <STRING> <SYMBOL> <T> <VECTOR> %DEFCLOS ) #Y(#:TOP-LEVEL-FORM-88 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) BC-P SYSTEM::REMOVE-OLD-DEFINITIONS #Y(BC-P #29Y(00 00 00 00 01 00 00 00 00 02 AB 2E 00 1D 0C AB 0E 01 59 1D 06 AB 0E 02 59 19 02 19 02 ) BUILT-IN-CLASS-P <STANDARD-OBJECT> <STRUCTURE-OBJECT> ) ) #Y(#:TOP-LEVEL-FORM-89 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) BC-AND SYSTEM::REMOVE-OLD-DEFINITIONS #Y(BC-AND #85Y(00 00 00 00 02 00 00 00 00 03 AC AC 89 00 38 AB AD 89 00 36 6A 01 AD 8A 00 06 6A 02 AC 89 00 2D 6A 01 AC 8A 00 06 6A 02 AD 89 00 21 6A 04 AD 8A 00 06 6A 05 AC 89 00 19 6A 04 AC 8A 00 06 6A 05 AD 89 00 0D 00 19 03 9D 19 03 9C 19 03 0E 03 19 03 0E 06 19 03 ) SUBCLASSP <SEQUENCE> <ARRAY> <VECTOR> <LIST> <SYMBOL> <NULL> ) ) #Y(#:TOP-LEVEL-FORM-90 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) BC-AND-NOT SYSTEM::REMOVE-OLD-DEFINITIONS #Y(BC-AND-NOT #66Y(00 00 00 00 02 00 00 00 00 03 AC AC 89 00 24 AC 0E 01 22 06 6A 02 AC 89 00 1C AC 0E 01 22 06 6A 03 AC 89 00 15 AC 0E 03 22 06 6A 04 AC 89 00 0E 9D 19 03 00 19 03 0E 03 19 03 0E 02 19 03 0E 05 19 03 ) SUBCLASSP <SEQUENCE> <VECTOR> <LIST> <NULL> <CONS> ) ) #Y(#:TOP-LEVEL-FORM-91 #361Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 DB DC DD 63 D8 DE 72 04 00 31 8A DB 2E 07 E0 30 5E E1 2E 01 E1 E2 E3 31 8A E1 E4 31 84 E5 30 5E E6 2E 01 E6 E2 E7 31 8A E6 E8 31 84 E9 30 5E EA 30 5E EB 2E 01 EB E2 EC 31 8A EB ED 31 84 EE 30 5E EF 30 5E F0 2E 01 F0 E2 F1 31 8A F0 F2 31 84 F3 30 5E F4 30 5E F5 2E 01 F5 E2 64 1E 31 8A F5 64 1F 31 84 64 20 30 5E 64 21 30 5E 64 22 2E 01 64 22 E2 64 23 31 8A 64 22 64 24 31 84 64 25 30 5E 64 26 30 5E 64 27 2E 01 64 27 E2 64 28 31 8A 64 27 64 29 31 84 64 2A 30 5E 64 2B 30 5E 64 2C 2E 01 64 2C E2 64 2D 31 8A 64 2C 64 2E 31 84 64 2F 30 5E 64 30 30 5E 64 31 2E 01 64 31 E2 64 32 31 8A 64 31 64 33 31 84 EB 64 34 64 35 03 36 79 31 8A EB 64 37 62 2C 03 38 F0 64 34 64 35 03 39 79 31 8A F0 64 37 62 2C 03 38 F5 64 34 64 35 03 3A 79 31 8A F5 64 37 62 2C 03 38 64 22 64 34 64 35 03 3B 79 31 8A 64 22 64 37 62 2C 03 38 64 27 64 34 64 35 03 3C 79 31 8A 64 27 64 37 62 2C 03 38 64 2C 64 34 64 35 03 3D 79 31 8A 64 2C 64 37 62 2C 03 38 64 31 64 34 64 35 03 3E 79 31 8A 64 31 64 37 62 2C 03 38 DB 64 3F 62 2C 03 38 DB 64 40 64 41 31 8A C6 19 01 ) MAKE-STANDARD-METHOD SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-STANDARD-METHOD #77Y(00 00 00 00 00 00 00 00 80 1B 07 00 00 00 3C 07 3C 06 3C 05 3C 04 3C 03 3C 02 3C 01 DF E0 71 34 E1 AB E2 B5 31 33 E1 AB E3 B4 31 33 E1 AB E4 B3 31 33 E1 AB E5 B2 31 33 E1 AB E6 B1 31 33 E1 AB E7 B0 31 33 E1 AB E8 AF 31 33 15 19 08 ) :FUNCTION :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE :GF :INITFUNCTION #1=(STANDARD-METHOD) 8. STANDARD-METHOD 1. 2. 3. 4. 5. 6. 7. ) STANDARD-METHOD SYSTEM::DEFSTRUCT-DESCRIPTION #1# (#(FUNCTION (:FUNCTION) 1. (NIL) NIL T NIL) #(WANTS-NEXT-METHOD-P (:WANTS-NEXT-METHOD-P) 2. (NIL) NIL T NIL) #(PARAMETER-SPECIALIZERS (:PARAMETER-SPECIALIZERS) 3. (NIL) NIL T NIL) #(QUALIFIERS (:QUALIFIERS) 4. (NIL) NIL T NIL) #(SIGNATURE (:SIGNATURE) 5. (NIL) NIL T NIL) #(GF (:GF) 6. (NIL) NIL T NIL) #(INITFUNCTION (:INITFUNCTION) 7. (NIL) NIL T NIL) ) DEFINE-STRUCTURE-CLASS (INLINE STANDARD-METHOD-P) STANDARD-METHOD-P SYSTEM::INLINE-EXPANSION ((SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN STANDARD-METHOD-P)) (BLOCK STANDARD-METHOD-P (SYSTEM::%STRUCTURE-TYPE-P 'STANDARD-METHOD SYSTEM::OBJECT) ) ) #Y(STANDARD-METHOD-P #16Y(00 00 00 00 01 00 00 00 00 02 D8 AC 31 36 19 02) STANDARD-METHOD ) (INLINE COPY-STANDARD-METHOD) COPY-STANDARD-METHOD ((STRUCTURE) (DECLARE (SYSTEM::IN-DEFUN COPY-STANDARD-METHOD)) (BLOCK COPY-STANDARD-METHOD (SYSTEM::%COPY-STRUCTURE STRUCTURE)) ) #Y(COPY-STANDARD-METHOD #15Y(00 00 00 00 01 00 00 00 00 02 AB 31 35 19 02)) (FUNCTION STD-METHOD-FUNCTION (STANDARD-METHOD) T) (INLINE STD-METHOD-FUNCTION) STD-METHOD-FUNCTION (#2=(SYSTEM::OBJECT) (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-FUNCTION)) (BLOCK STD-METHOD-FUNCTION (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 1.)) ) ) #Y(STD-METHOD-FUNCTION #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) STANDARD-METHOD 1. ) (FUNCTION STD-METHOD-WANTS-NEXT-METHOD-P (STANDARD-METHOD) T) (INLINE STD-METHOD-WANTS-NEXT-METHOD-P) STD-METHOD-WANTS-NEXT-METHOD-P (#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-WANTS-NEXT-METHOD-P)) (BLOCK STD-METHOD-WANTS-NEXT-METHOD-P (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 2.)) ) ) #Y(STD-METHOD-WANTS-NEXT-METHOD-P #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) STANDARD-METHOD 2. ) (FUNCTION STD-METHOD-PARAMETER-SPECIALIZERS (STANDARD-METHOD) T) (INLINE STD-METHOD-PARAMETER-SPECIALIZERS) STD-METHOD-PARAMETER-SPECIALIZERS (#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-PARAMETER-SPECIALIZERS)) (BLOCK STD-METHOD-PARAMETER-SPECIALIZERS (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 3.)) ) ) #Y(STD-METHOD-PARAMETER-SPECIALIZERS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) STANDARD-METHOD 3. ) (FUNCTION STD-METHOD-QUALIFIERS (STANDARD-METHOD) T) (INLINE STD-METHOD-QUALIFIERS) STD-METHOD-QUALIFIERS (#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-QUALIFIERS)) (BLOCK STD-METHOD-QUALIFIERS (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 4.)) ) ) #Y(STD-METHOD-QUALIFIERS #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) STANDARD-METHOD 4. ) (FUNCTION STD-METHOD-SIGNATURE (STANDARD-METHOD) T) (INLINE STD-METHOD-SIGNATURE) STD-METHOD-SIGNATURE (#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-SIGNATURE)) (BLOCK STD-METHOD-SIGNATURE (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 5.)) ) ) #Y(STD-METHOD-SIGNATURE #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) STANDARD-METHOD 5. ) (FUNCTION STD-METHOD-GF (STANDARD-METHOD) T) (INLINE STD-METHOD-GF) STD-METHOD-GF (#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-GF)) (BLOCK STD-METHOD-GF (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 6.)) ) ) #Y(STD-METHOD-GF #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) STANDARD-METHOD 6. ) (FUNCTION STD-METHOD-INITFUNCTION (STANDARD-METHOD) T) (INLINE STD-METHOD-INITFUNCTION) STD-METHOD-INITFUNCTION (#2# (DECLARE (SYSTEM::IN-DEFUN STD-METHOD-INITFUNCTION)) (BLOCK STD-METHOD-INITFUNCTION (THE T (SYSTEM::%STRUCTURE-REF 'STANDARD-METHOD SYSTEM::OBJECT 7.)) ) ) #Y(STD-METHOD-INITFUNCTION #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) STANDARD-METHOD 7. ) SYSTEM::SETF-EXPANDER -1. #Y(SETF-STD-METHOD-FUNCTION #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 1. ) SETF SYSTEM::%SET-DOCUMENTATION #Y(SETF-STD-METHOD-WANTS-NEXT-METHOD-P #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 2. ) #Y(SETF-STD-METHOD-PARAMETER-SPECIALIZERS #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 3. ) #Y(SETF-STD-METHOD-QUALIFIERS #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 4. ) #Y(SETF-STD-METHOD-SIGNATURE #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 5. ) #Y(SETF-STD-METHOD-GF #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 6. ) #Y(SETF-STD-METHOD-INITFUNCTION #22Y(00 00 00 00 02 00 00 00 00 03 9D 5B 77 D8 D9 AC DA B0 60 05 19 04) SYSTEM::%STRUCTURE-STORE 'STANDARD-METHOD 7. ) STRUCTURE SYSTEM::STRUCTURE-PRINT #Y(STANDARD-METHOD-PRINT-FUNCTION #18Y(00 00 00 00 03 00 00 00 00 04 AD AD AD 2C 03 00 19 04) PRINT-STD-METHOD ) ) #Y(#:TOP-LEVEL-FORM-92 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) PRINT-STD-METHOD SYSTEM::REMOVE-OLD-DEFINITIONS #Y(PRINT-STD-METHOD #38Y(00 00 00 00 03 00 00 00 00 04 00 2A 02 7E 04 00 00 7E 03 00 01 AA 6C 00 01 67 01 00 67 02 01 D9 63 2C 05 02 19 05 ) #Y(PRINT-STD-METHOD-1 #65Y(00 00 00 00 00 00 00 00 00 01 68 00 01 D9 AB DA 80 32 00 62 1A 13 86 01 00 14 37 0C 68 00 02 30 85 DB 68 00 02 30 8D 82 01 AB 8C 97 69 16 02 68 00 01 D9 AB DC 80 32 00 37 0C 68 00 02 30 85 19 01 ) NIL STANDARD-METHOD 4. #\Space 3. ) :TYPE SYSTEM::WRITE-UNREADABLE ) ) #Y(#:TOP-LEVEL-FORM-93 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) N-GENSYMS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(N-GENSYMS #29Y(00 00 00 00 01 00 00 00 00 02 62 AC 1A 08 37 01 71 92 83 01 85 00 AA 24 00 74 9C 19 04 ) 0. ) ) #Y(#:TOP-LEVEL-FORM-94 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) LAMBDA-LIST-KEYWORD-P SYSTEM::REMOVE-OLD-DEFINITIONS #Y(LAMBDA-LIST-KEYWORD-P #20Y(00 00 00 00 01 00 00 00 00 02 9C 25 00 03 02 19 02 00 19 02) #S(HASH-TABLE EQ (&ENVIRONMENT . 1.) (&WHOLE . 1.) (&BODY . 1.) (&AUX . 1.) (&ALLOW-OTHER-KEYS . 1.) (&KEY . 1.) (&REST . 1.) (&OPTIONAL . 1.) ) ) ) #Y(#:TOP-LEVEL-FORM-95 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) ANALYZE-METHOD-DESCRIPTION SYSTEM::REMOVE-OLD-DEFINITIONS #Y(ANALYZE-METHOD-DESCRIPTION #876Y(00 00 00 00 04 00 00 00 00 05 62 1A 1F D8 D9 DA DB 6D 03 04 B1 B1 32 02 1F D8 E0 E1 E2 6D 03 04 AC 71 4C 32 01 1F 93 03 82 04 83 00 9E 1F 5E 93 03 8E 0E 72 92 00 0F AA DD 8D 05 0A AA DE 8D 05 05 AA DF 8E 05 53 93 03 94 04 01 03 1A 36 AA 83 03 02 1A 1B E5 E6 9D 5B 77 60 03 1A 22 93 04 82 05 9B 1F 6A 93 00 83 03 93 00 83 02 9B 5B 5A 14 9B 1F 05 93 00 23 0C 5C E7 E8 AC 7A 02 60 02 14 83 02 16 02 9F 1F 05 93 04 88 0B 51 AC 71 4A AD B0 70 A7 E9 AB EA 37 02 30 B8 78 98 0B AB 37 04 8D 63 03 AA 31 4A F6 EB AC EA 37 02 30 B8 58 58 14 91 00 09 EC AD EA 37 02 30 B8 58 58 14 62 EB AF EA 37 02 30 B8 78 AA ED 98 0B AD 37 04 71 63 80 48 00 1A 81 80 9B 5A 1A 81 74 F5 9E 79 60 01 1A 81 DE 9E 1A 81 EA 37 01 31 92 1A 80 7D EC AE 60 02 1A 80 86 E5 64 2E E8 B7 7A 02 E5 64 2F E8 BA 7A 02 62 BA 1A 0C 93 00 E8 AB 7A 02 83 02 16 01 82 00 9B 20 71 16 01 AA 7F A8 00 E8 BA 7A 02 7A 01 32 02 23 7B 03 E5 64 30 64 31 E8 65 1A 7A 02 62 BC 1A 0C 93 00 E8 AB 7A 02 83 02 16 01 82 00 9B 20 71 16 01 AA 7F A8 00 E8 BC 7A 02 7A 01 32 02 23 61 04 1A 80 B7 37 01 71 92 B9 6E 21 91 0C FF 84 B8 ED 8F 01 30 FF 7D 00 14 64 22 AF AF 32 02 23 79 AD AD 91 03 FF 74 00 14 32 02 23 79 64 23 64 24 64 25 64 26 64 27 E5 64 28 E8 B6 7A 02 64 29 64 2A E8 B9 7A 02 03 2B 7B 03 64 29 64 2C E8 C2 7A 02 03 2D 7B 03 7A 05 91 08 FF 46 E5 64 32 E8 B7 7A 02 E5 64 33 E8 BA 7A 02 62 BA 1A 0C 93 00 E8 AB 7A 02 83 02 16 01 82 00 9B 20 71 16 01 AA 30 A8 16 01 7B 03 E5 64 34 E8 65 19 7A 02 62 BB 1A 1E 64 36 64 37 AF 7A 02 B1 B1 7A 01 32 02 23 61 02 1A 30 93 00 E8 AB 7A 02 83 02 16 01 82 00 9B 20 71 16 01 AA 30 A8 16 01 61 03 14 7A 05 7A 04 7A 03 64 35 62 E8 B3 7A 02 7A 03 7A 02 91 04 41 AD A1 5C 14 7A 03 60 02 16 04 1A 80 EE 03 41 1A 80 FC 03 43 1A 80 FF 93 00 AA 9B 1F 03 86 00 00 9B 20 FE 8E AA 71 8E 6A 16 30 D8 F6 83 02 16 01 82 00 9B 20 62 16 01 AA 7F A8 00 92 02 09 EF AF EA 37 02 30 B8 58 58 14 92 03 25 91 00 22 F0 EB B1 37 06 D5 F7 71 62 AD 71 4A 72 03 35 B0 ED AC 71 48 EF B2 AD 37 01 31 48 79 81 02 23 06 16 01 37 01 71 92 A8 58 1B 04 B7 F1 31 05 14 62 B7 63 BD 30 63 41 03 F2 AC F3 37 02 7F B8 03 92 0E 07 F4 B9 31 4C 79 83 01 B5 91 02 FE 1B 00 79 C2 23 1E FE 1C 64 1F C2 6E 20 A0 7B 02 60 01 14 91 06 FE 82 AB 64 23 64 24 62 64 38 64 39 64 3A E8 65 21 7A 02 E8 65 21 7A 02 64 3B E8 93 1F 7A 02 7A 07 7A 03 64 35 62 64 38 64 3C 64 3D E8 65 22 7A 02 E8 65 22 7A 02 64 3E E8 93 20 7A 02 7A 07 7A 03 7A 02 9E 7B 02 7A 01 32 02 23 16 04 F6 64 3F 64 40 64 37 64 22 B1 7A 01 91 06 FF 00 00 14 64 42 91 09 FE FD 00 14 A3 7B 02 7A 01 32 02 23 7B 02 7A 02 64 44 E8 B1 7A 02 64 45 E5 BC 31 4C 79 64 46 E8 65 19 7A 02 64 47 E8 BF BE BD BF BE BE 7A 06 7A 02 60 0B 19 16 ) PROGRAM-ERROR "~S ~S: missing lambda list" "~S ~S: Lambdaliste fehlt." "~S ~S : la liste lambda manque." SYSTEM::LANGUAGE (:BEFORE) (:AFTER) (:AROUND) "STANDARD method combination doesn't allow the method qualifiers to be ~S" "Bei STANDARD Methodenkombination dⁿrfen die Methodenbestimmer nicht ~S lauten." "La combinaison STANDARD de mΘthodes ne permet pas de qualifier des mΘthodes comme ~S." LAMBDA-LIST-KEYWORD-P EQL LIST 'EQL FIND-CLASS QUOTE &OPTIONAL #.#'EQ &KEY &REST 0. *KEYWORD-PACKAGE* &ALLOW-OTHER-KEYS 1. (:AROUND) (COMPILE) #.#'EQUAL IGNORABLE DECLARE GENERIC-FUNCTION BLOCK BLOCK-NAME N-GENSYMS LAMBDA MACROLET CALL-NEXT-METHOD (&REST NEW-ARG-EXPRS) IF NEW-ARG-EXPRS 'IF LIST* 'FUNCALL (NEW-ARG-EXPRS) '%NO-NEXT-METHOD (NEW-ARG-EXPRS) 'IF 'APPLY 'APPLY '#'%NO-NEXT-METHOD 'IF 'FUNCALL '%NO-NEXT-METHOD NEXT-METHOD-P APPLY FUNCTION ERROR-OF-TYPE 'PROGRAM-ERROR (DEUTSCH "~S ~S: ~S ist in ~S-Methoden nicht erlaubt." ENGLISH "~S ~S: ~S is invalid within ~S methods" FRANCAIS "~S ~S : ~S n'est pas permit dans des mΘthodes ~S." ) 'CALL-NEXT-METHOD 'PROGRAM-ERROR (DEUTSCH "~S ~S: ~S ist in ~S-Methoden nicht erlaubt." ENGLISH "~S ~S: ~S is invalid within ~S methods" FRANCAIS "~S ~S : ~S n'est pas permit dans des mΘthodes ~S." ) 'NEXT-METHOD-P MAKE-STANDARD-METHOD :INITFUNCTION ((DECLARE (COMPILE))) %OPTIMIZE-FUNCTION-LAMBDA (T) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE ) ) #Y(#:TOP-LEVEL-FORM-96 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) METHODS-AGREE-P SYSTEM::REMOVE-OLD-DEFINITIONS #Y(METHODS-AGREE-P #40Y(00 00 00 00 02 00 00 00 00 03 D8 AD D9 71 32 D8 AD D9 71 32 31 05 1E 0E D8 AD DA 71 32 D8 AD DA 71 32 2F 03 19 03 19 03 ) STANDARD-METHOD 4. 3. SPECIALIZERS-AGREE-P ) ) #Y(#:TOP-LEVEL-FORM-97 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SPECIALIZERS-AGREE-P SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SPECIALIZERS-AGREE-P #30Y(00 00 00 00 02 00 00 00 00 03 AC 71 4A AC 71 4A 31 04 1E 08 D8 AD AD 32 01 28 19 03 19 03 ) #Y(SPECIALIZERS-AGREE-P-1 #37Y(00 00 00 00 02 00 00 00 00 03 AC 9D 59 1D 14 AC 31 07 1E 0F AB 31 07 1E 0A 9D 5B 77 9D 5B 77 31 04 19 03 19 03 ) ) ) ) #Y(#:TOP-LEVEL-FORM-98 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) METHOD-APPLICABLE-P SYSTEM::REMOVE-OLD-DEFINITIONS #Y(METHOD-APPLICABLE-P #23Y(00 00 00 00 02 00 00 00 00 03 98 00 AC D9 AF DA 71 32 32 01 28 19 03 ) TYPEP STANDARD-METHOD 3. ) ) #Y(#:TOP-LEVEL-FORM-99 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) SORT-APPLICABLE-METHODS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(SORT-APPLICABLE-METHODS #34Y(00 00 00 00 03 00 00 00 00 04 00 2A 02 7E 03 00 00 7E 02 00 01 AE 70 A3 AB 6C 00 01 37 03 31 6A 19 05 ) #Y(SORT-APPLICABLE-METHODS-1 #113Y(00 00 00 00 02 00 00 00 00 03 D9 AD DA 71 32 D9 AD DA 71 32 68 00 02 62 1A 80 4E 9B 20 80 46 02 19 0A 00 19 0A 02 19 0D 00 19 0D 86 01 00 14 68 00 01 70 99 AB AF 70 99 AC AF 70 99 9C 20 5C 9B 20 60 AC 71 2C DB AB DC 80 32 00 AC AB 37 06 71 62 AC AC 37 06 71 62 AB AB 8F 01 2F 48 AB AB 8F 01 30 45 16 03 16 03 82 01 AB 8C 97 FF BD 00 19 07 ) NIL STANDARD-METHOD 3. CLASS 5. ) ) ) #Y(#:TOP-LEVEL-FORM-100 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) PARTITION-METHOD-LIST SYSTEM::REMOVE-OLD-DEFINITIONS #Y(PARTITION-METHOD-LIST #86Y(00 00 00 00 01 00 00 00 00 02 01 04 AF 62 1A 30 AB 83 06 1A 27 AB 83 05 1A 22 AB 83 04 1A 1D 86 01 00 D8 AB D9 71 32 92 00 66 AA DA 8D 05 66 AA DB 8D 05 66 AA DC 8E 05 03 AB 83 03 16 01 82 01 AB 8C 97 5B 16 02 AD 71 4C AD 71 4C AD 71 4C AD 71 4C 3F 04 19 06 ) STANDARD-METHOD 4. (:BEFORE) (:AFTER) (:AROUND) ) ) #Y(#:TOP-LEVEL-FORM-101 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) CALLINFO SYSTEM::REMOVE-OLD-DEFINITIONS #Y(CALLINFO #26Y(00 00 00 00 05 00 00 00 00 06 AF D8 B0 D8 8F 01 30 01 A0 14 01 03 60 06 19 06 ) 0. ) ) #Y(#:TOP-LEVEL-FORM-102 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) GF-SIGNATURE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GF-SIGNATURE #16Y(00 00 00 00 01 00 00 00 00 02 AB D8 31 2F 19 02) 3.) ) #Y(#:TOP-LEVEL-FORM-103 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C6 19 01) #.(SYSTEM::GET-SETF-SYMBOL 'GF-SIGNATURE) SYSTEM::REMOVE-OLD-DEFINITIONS #Y(#1=(SETF GF-SIGNATURE) #17Y(00 00 00 00 02 00 00 00 00 03 AB D8 AE 31 30 19 03) 3. ) #1# ) #Y(#:TOP-LEVEL-FORM-104 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) GF-ARGORDER SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GF-ARGORDER #16Y(00 00 00 00 01 00 00 00 00 02 AB D8 31 2F 19 02) 4.) ) #Y(#:TOP-LEVEL-FORM-105 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C6 19 01) #.(SYSTEM::GET-SETF-SYMBOL 'GF-ARGORDER) SYSTEM::REMOVE-OLD-DEFINITIONS #Y(#1=(SETF GF-ARGORDER) #17Y(00 00 00 00 02 00 00 00 00 03 AB D8 AE 31 30 19 03) 4. ) #1# ) #Y(#:TOP-LEVEL-FORM-106 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) GF-METHODS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(GF-METHODS #16Y(00 00 00 00 01 00 00 00 00 02 AB D8 31 2F 19 02) 5.) ) #Y(#:TOP-LEVEL-FORM-107 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C6 19 01) #.(SYSTEM::GET-SETF-SYMBOL 'GF-METHODS) SYSTEM::REMOVE-OLD-DEFINITIONS #Y(#1=(SETF GF-METHODS) #17Y(00 00 00 00 02 00 00 00 00 03 AB D8 AE 31 30 19 03) 5. ) #1# ) #Y(#:TOP-LEVEL-FORM-108 #34Y(00 00 00 00 00 00 00 00 00 01 00 2A 01 D8 AA D9 31 2F 0B 01 00 DA 2E 03 DA AC 6C 04 01 31 84 C5 19 03 ) #Y(#:TOP-LEVEL-FORM-108-1 #12Y(00 00 00 00 00 00 00 00 01 16 1A 7E)) 1. %MAKE-GF SYSTEM::REMOVE-OLD-DEFINITIONS #Y(%MAKE-GF #24Y(00 00 00 00 04 00 00 00 00 05 AE 68 00 01 62 B0 B0 B0 7A 04 31 3B 19 05 ) NIL ) ) #Y(#:TOP-LEVEL-FORM-109 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAKE-FAST-GF SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-FAST-GF #23Y(00 00 00 00 03 00 00 00 00 04 AD AD AD 62 6D 04 00 AA 2E 01 15 19 04 ) %MAKE-GF FINALIZE-FAST-GF ) ) #Y(#:TOP-LEVEL-FORM-110 #52Y(00 00 00 00 00 00 00 00 00 01 00 2A 01 37 05 C3 F9 30 67 0B 00 00 D9 2E 02 D9 AB 6C 03 01 31 84 DC 2E 02 DC AB 6C 05 01 31 84 DE 2E 02 DE DF 31 84 C9 19 02 ) #.#'EQUAL FINALIZE-FAST-GF SYSTEM::REMOVE-OLD-DEFINITIONS #Y(FINALIZE-FAST-GF #121Y(00 00 00 00 01 00 00 00 00 02 AB 6E 01 93 00 9C 5B 5B 5A 1B 07 9C 5B 77 DA 32 01 30 14 AB 9C 79 AA 68 00 01 37 01 8B 68 38 68 00 01 AD 6E 03 DC DD DE DF AE 91 08 3C 00 14 72 02 23 E1 E2 E3 E4 B3 91 0D 32 D1 14 7A 01 32 02 23 7B 03 7A 04 7A 04 70 5F AA E7 31 2F 16 01 F6 AC AC AC 30 69 16 02 14 B0 E7 AC 31 30 B0 E8 62 E9 B4 72 03 00 31 30 19 07 CB 1A 42 D0 1A 4C ) NIL GF-SIGNATURE 0. N-GENSYMS LET ((GF 'MAGIC)) (DECLARE (COMPILE)) %GENERIC-FUNCTION-LAMBDA (&REST ARGS) (DECLARE (INLINE APPLY)) APPLY 'INITIAL-FUNCALL-GF GF ARGS 'NIL 1. 2. INITIAL-FUNCALL-GF ) GF-NEVER-CALLED-P #Y(GF-NEVER-CALLED-P #48Y(00 00 00 00 01 00 00 00 00 02 AB 6E 01 93 00 9C 5B 5B 5A 1B 07 9C 5B 77 DA 32 01 30 14 AB 9C 79 AA 68 00 01 37 01 70 68 B0 DB 71 2F 9C 59 19 07 ) NIL GF-SIGNATURE 0. 1. ) WARN-IF-GF-ALREADY-CALLED #Y(WARN-IF-GF-ALREADY-CALLED #28Y(00 00 00 00 01 00 00 00 00 02 AB 87 00 0B D9 DA DB 6D 03 04 AC 2F 05 19 02 00 19 02 ) GF-NEVER-CALLED-P "The generic function ~S is being modified, but has already been called." "Die generische Funktion ~S wird modifiziert, wurde aber bereits aufgerufen." "On change la fonction gΘnΘrique ~S qui a dΘjα ΘtΘ appelΘe." SYSTEM::LANGUAGE WARN ) ) #Y(#:TOP-LEVEL-FORM-111 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) INITIAL-FUNCALL-GF SYSTEM::REMOVE-OLD-DEFINITIONS #Y(INITIAL-FUNCALL-GF #18Y(00 00 00 00 01 00 00 00 01 17 AC 2E 00 AC 9D 9A 00 03) INSTALL-DISPATCH ) ) #Y(#:TOP-LEVEL-FORM-112 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) INSTALL-DISPATCH SYSTEM::REMOVE-OLD-DEFINITIONS #Y(INSTALL-DISPATCH #50Y(00 00 00 00 01 00 00 00 00 02 AB 2E 00 41 02 D9 AC DA DB 9F 79 7A 04 70 5F AE DC AC DC 71 2F 31 30 AE DD AC DE 71 2F AD DD 71 2F AB CA 5F 31 30 19 05 ) COMPUTE-DISPATCH LET (DECLARE (COMPILE)) %GENERIC-FUNCTION-LAMBDA 1. 2. 3. 0. ) ) #Y(#:TOP-LEVEL-FORM-113 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) COMPUTE-DISPATCH SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMPUTE-DISPATCH #195Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 7E 02 00 00 9B 2A 06 67 01 00 6E 00 93 00 AA 2E 01 0B 02 00 9C 5B 5B 5A 1B 07 9C 5B 77 DA 32 01 30 14 91 00 80 66 00 14 91 01 80 67 C7 0B 04 01 67 04 00 91 02 80 60 00 14 32 02 23 0B 04 02 67 05 00 6E 05 67 06 00 6E 06 37 01 31 92 0B 06 03 00 0B 06 04 0B 06 05 A1 2A 01 AA 2B 07 01 0B 00 00 AC AC 62 06 03 00 73 67 08 05 71 4C 67 09 00 91 07 2A 00 14 72 02 23 E1 E2 67 0C 03 AF 06 0E 04 1B 20 00 7B 03 7A 03 3F 02 19 0C 37 01 31 92 1A FF 94 C6 1A FF 96 AB 60 01 1A FF 9B E0 B1 60 02 1A 51 67 0E 01 E3 E4 67 12 00 7A 02 06 11 02 7B 03 60 01 1A 4E ) GF-SIGNATURE N-GENSYMS 0. APPLY FUNCALL GF-ARGORDER GF-METHODS #Y(COMPUTE-DISPATCH-RECURSION #462Y(00 00 00 00 03 00 00 00 00 04 29 2A 02 7E 04 00 00 7E 02 00 01 92 03 20 06 00 00 1C 80 44 9B 2A 02 06 01 00 5A 0B 00 00 14 68 01 01 30 99 0B 00 01 E3 EC 62 B1 1A 80 CA 02 0C 01 05 00 19 05 7C 02 9F F7 DA AF 60 02 F6 1A 80 71 CA 1A 33 E1 AF 06 07 01 5A 5B 77 60 03 1A 3C AA 06 08 01 5C 1A 80 55 37 01 71 92 67 01 01 71 4A 01 03 AD 23 01 4E 67 05 01 31 4B 0B 05 01 DB DC DD B0 23 06 4B CB 14 7A 02 60 03 F8 AD 23 06 43 E2 AF E3 67 08 01 32 00 17 61 02 F7 E4 AE 6E 0D E6 9C 5B 77 37 03 8B B8 FF B5 E7 9C 5B 77 67 09 01 72 01 17 9C 5B 5B 77 37 03 30 B6 F6 B0 60 03 F6 AE AD 7A 02 07 01 06 5C 0C 01 06 E8 68 01 04 68 01 02 E9 AF AF 68 01 02 EA EB 68 02 01 7A 02 07 01 03 7B 03 7A 01 72 02 23 7A 03 07 01 03 7B 02 60 03 19 0A 93 00 67 05 00 ED AC EE 71 32 70 99 83 02 16 01 82 00 9B 20 6B 16 01 AA 7F A8 00 37 05 71 53 72 00 17 37 06 03 17 F7 71 57 62 AB 1A 28 93 00 9F 2A 01 7E 01 00 00 14 7A 01 06 07 00 78 AC 6C 18 01 B6 37 05 71 53 67 09 01 6B FE CE 60 02 F6 83 02 16 01 82 00 9B 20 55 16 01 AA 7F A8 00 AC 6C 19 01 B1 37 05 80 52 06 6A 1A 62 B2 1A 34 AD 6C 1D 01 6A 1A AC B4 9E 33 16 01 1A 80 59 64 1F 67 04 01 AD 63 AE 7A 02 7A 01 32 02 23 61 02 19 09 93 00 67 06 00 ED AC EE 71 32 70 99 83 02 16 01 82 00 9B 20 6B 16 01 AA 7F A8 00 37 06 71 58 37 07 71 54 98 1B AB 90 00 28 09 AA 71 4A F4 8F 01 31 FF AB 06 04 00 78 B2 64 1E 67 06 01 7A 02 06 07 01 79 27 FE 44 F6 91 01 FF A2 15 19 08 ) NIL 0. SETQ MAKE-HASH-TABLE :TEST FUNCTION 1. EQ EQUAL CLASS-GETHASH CLASS-TUPLE-GETHASH #.#'SECOND SYSTEM::PUTHASH HASH-TUPLE-FUNCTION &REST #.#'CONS RETURN-FROM OR 'COMPUTE-EFFECTIVE-METHOD QUOTE #.#'CONSP STANDARD-METHOD 3. #.#'EQL #Y(COMPUTE-DISPATCH-RECURSION-1 #27Y(00 00 00 00 01 00 00 00 00 02 68 00 01 68 01 01 D9 AE DA 71 32 70 99 2F 03 19 02 ) NIL STANDARD-METHOD 3. TYPEP ) #Y(COMPUTE-DISPATCH-RECURSION-2 #24Y(00 00 00 00 01 00 00 00 00 02 68 00 01 D9 AD DA 71 32 70 99 31 07 19 02 ) NIL STANDARD-METHOD 3. ) <T> BC-P 5. #Y(COMPUTE-DISPATCH-RECURSION-BUILT-IN-SUBTREE #206Y(00 00 00 00 03 00 00 00 00 04 29 2A 01 7E 04 00 00 92 03 0A 9B 2A 01 9F 5A 0B 00 00 1A 1C 07 01 01 78 AB 6C 01 01 AE 37 05 71 53 68 01 02 07 02 01 33 19 05 7E 00 01 00 16 01 AA 6C 02 01 AF 37 04 71 60 91 00 6E 16 01 DB DC 68 00 02 DD 67 04 00 DE AB DF 80 32 00 7A 02 7A 03 67 03 00 67 03 00 6F 08 01 02 67 05 00 B4 37 07 71 51 1A 0E 93 00 AA 67 08 00 6F 08 83 02 16 01 82 00 9B 20 6F 16 01 AA 7F A8 00 37 07 71 51 AE 6C 09 01 B2 37 05 71 53 6B FF 74 67 04 00 67 04 00 6F 0A 01 02 B4 1A 0E 93 00 AA 67 09 00 6F 0A 83 02 16 01 82 00 9B 20 6F 16 01 AA 7F A8 00 37 07 71 51 AF 6C 0B 01 B3 37 05 71 53 6B FF 40 60 04 19 06 ) NIL #Y(COMPUTE-DISPATCH-RECURSION-BUILT-IN-SUBTREE-1 #27Y(00 00 00 00 01 00 00 00 00 02 68 00 01 68 01 01 D9 AE DA 71 32 70 99 2F 03 19 02 ) NIL STANDARD-METHOD 3. BC-AND ) #Y(COMPUTE-DISPATCH-RECURSION-BUILT-IN-SUBTREE-2 #28Y(00 00 00 00 01 00 00 00 00 02 68 00 01 AC 2F 01 1E 08 68 00 01 9D 59 58 19 02 19 02 ) NIL SUBCLASSP ) IF TYPEP QUOTE CLASS 2. BC-AND #Y(COMPUTE-DISPATCH-RECURSION-BUILT-IN-SUBTREE-3 #27Y(00 00 00 00 01 00 00 00 00 02 68 02 01 D9 AD DA 71 32 70 99 68 00 01 2F 03 19 02 ) NIL STANDARD-METHOD 3. BC-AND ) BC-AND-NOT #Y(COMPUTE-DISPATCH-RECURSION-BUILT-IN-SUBTREE-4 #27Y(00 00 00 00 01 00 00 00 00 02 68 02 01 D9 AD DA 71 32 70 99 68 00 01 2F 03 19 02 ) NIL STANDARD-METHOD 3. BC-AND-NOT ) ) CLASS-OF CASE ) &REST (DECLARE (INLINE CASE EQL EQ TYPEP ARRAYP BIT-VECTOR-P CHARACTERP COMPLEXP CONSP FLOATP FUNCTIONP GENERIC-FUNCTION-P HASH-TABLE-P INTEGERP LISTP NULL NUMBERP PACKAGEP PATHNAMEP SYSTEM::LOGICAL-PATHNAME-P RANDOM-STATE-P RATIONALP READTABLEP REALP SYSTEM::SEQUENCEP STD-INSTANCE-P STREAMP SYSTEM::FILE-STREAM-P SYSTEM::SYNONYM-STREAM-P SYSTEM::BROADCAST-STREAM-P SYSTEM::CONCATENATED-STREAM-P SYSTEM::TWO-WAY-STREAM-P SYSTEM::ECHO-STREAM-P SYSTEM::STRING-STREAM-P STRINGP STRUCTURE-INSTANCE-P SYMBOLP VECTORP CLASS-OF CONS GETHASH CLASS-GETHASH CLASS-TUPLE-GETHASH SYSTEM::PUTHASH FUNCALL APPLY ) ) BLOCK 'NO-APPLICABLE-METHOD QUOTE ) ) #Y(#:TOP-LEVEL-FORM-114 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) HASH-TUPLE-FUNCTION SYSTEM::REMOVE-OLD-DEFINITIONS #Y(HASH-TUPLE-FUNCTION #65Y(00 00 00 00 01 00 00 00 00 02 9C 25 00 30 C4 19 02 C5 19 02 C6 19 02 C7 19 02 C8 19 02 C9 19 02 CA 19 02 CB 19 02 CC 19 02 CD 19 02 CE 19 02 CF 19 02 D0 19 02 D1 19 02 D2 19 02 D3 19 02 D4 19 02 ) #S(HASH-TABLE EQ (16. . 46.) (15. . 43.) (14. . 40.) (13. . 37.) (12. . 34.) (11. . 31.) (10. . 28.) (9. . 25.) (8. . 22.) (7. . 19.) (6. . 16.) (5. . 13.) (4. . 10.) (3. . 7.) (2. . 4.) (1. . 1.) ) (LAMBDA (T1) T1) (LAMBDA (T1 T2) (CONS T1 T2)) (LAMBDA (T1 T2 T3) (CONS T1 (CONS T2 T3))) (LAMBDA (T1 T2 T3 T4) (CONS (CONS T1 T2) (CONS T3 T4))) (LAMBDA (T1 T2 T3 T4 T5) (CONS (CONS T1 T2) (CONS T3 (CONS T4 T5)))) (LAMBDA (T1 T2 T3 T4 T5 T6) (CONS (CONS T1 T2) (CONS (CONS T3 T4) (CONS T5 T6))) ) (LAMBDA (T1 T2 T3 T4 T5 T6 T7) (CONS (CONS T1 (CONS T2 T3)) (CONS (CONS T4 T5) (CONS T6 T7))) ) (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8) (CONS (CONS (CONS T1 T2) (CONS T3 T4)) (CONS (CONS T5 T6) (CONS T7 T8)) ) ) (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9) (CONS (CONS (CONS T1 T2) (CONS T3 T4)) (CONS (CONS T5 T6) (CONS T7 (CONS T8 T9))) ) ) (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10) (CONS (CONS (CONS T1 T2) (CONS T3 T4)) (CONS (CONS T5 T6) (CONS (CONS T7 T8) (CONS T9 T10))) ) ) (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11) (CONS (CONS (CONS T1 T2) (CONS T3 T4)) (CONS (CONS T5 (CONS T6 T7)) (CONS (CONS T8 T9) (CONS T10 T11))) ) ) (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12) (CONS (CONS (CONS T1 T2) (CONS T3 T4)) (CONS (CONS (CONS T5 T6) (CONS T7 T8)) (CONS (CONS T9 T10) (CONS T11 T12)) ) ) ) (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13) (CONS (CONS (CONS T1 T2) (CONS T3 (CONS T4 T5))) (CONS (CONS (CONS T6 T7) (CONS T8 T9)) (CONS (CONS T10 T11) (CONS T12 T13)) ) ) ) (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14) (CONS (CONS (CONS T1 T2) (CONS (CONS T3 T4) (CONS T5 T6))) (CONS (CONS (CONS T7 T8) (CONS T9 T10)) (CONS (CONS T11 T12) (CONS T13 T14)) ) ) ) (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15) (CONS (CONS (CONS T1 (CONS T2 T3)) (CONS (CONS T4 T5) (CONS T6 T7))) (CONS (CONS (CONS T8 T9) (CONS T10 T11)) (CONS (CONS T12 T13) (CONS T14 T15)) ) ) ) (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 T15 T16) (CONS (CONS (CONS (CONS T1 T2) (CONS T3 T4)) (CONS (CONS T5 T6) (CONS T7 T8)) ) (CONS (CONS (CONS T9 T10) (CONS T11 T12)) (CONS (CONS T13 T14) (CONS T15 T16)) ) ) ) (LAMBDA (T1 T2 T3 T4 T5 T6 T7 T8 T9 T10 T11 T12 T13 T14 &REST MORE-T) (CONS (CONS (CONS (CONS T1 T2) (CONS T3 T4)) (CONS (CONS T5 T6) (CONS T7 T8)) ) (CONS (CONS (CONS T9 T10) (CONS T11 T12)) (CONS (CONS T13 T14) MORE-T) ) )) ) ) #Y(#:TOP-LEVEL-FORM-115 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) COMPUTE-EFFECTIVE-METHOD SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMPUTE-EFFECTIVE-METHOD #454Y(00 00 00 00 01 00 00 00 01 17 1A 1F 37 01 31 92 1A 3F C6 1A 80 41 AB 60 01 1A 80 44 DD AC 60 02 1A 80 4A 98 09 B8 A9 36 01 16 0B 00 2A 04 AD 6E 00 93 00 AA 6E 01 AF DA AD 31 48 0B 03 00 9D 5B 5B 5A 1B 07 9D 5B 77 DA 32 01 30 14 91 00 FF BC 00 14 91 01 FF BC C7 0B 05 01 AC 91 02 FF B7 00 14 32 02 23 0B 05 02 AC 91 02 FF B0 00 14 32 02 23 0B 05 03 01 03 B5 6E 06 B6 6E 07 B4 6C 08 01 AB 37 05 80 53 00 1C FF 9A 92 06 80 AD B3 8B 9A 80 A8 62 AB 1A 80 88 A5 5B 5B 5B 77 E6 AC 6F 0F 72 02 23 63 37 05 71 57 A6 5B 77 2E 01 FC AA 71 4A 2E 01 FB E8 62 AC B2 1A 19 16 03 1A 1A 93 01 9C 1F 77 93 01 AB AB 7A 02 7A 01 83 04 16 02 82 01 82 00 9C 20 68 16 02 AA 30 A8 16 01 5C FA 16 02 1A 80 56 98 13 BC 04 12 36 01 16 0F 1A FF 3B 9B 5B 5A 1A 80 C3 F3 F4 04 0F 79 7A 02 60 01 5C 1A 80 AC 67 13 03 B6 72 02 23 91 0D 69 00 5C 1A 80 9D 93 00 E2 AB E3 71 32 83 02 16 01 82 00 9B 20 70 16 01 AA 7F A8 00 E4 AB 37 05 80 56 00 1C 07 E5 AB 90 00 27 FF 5F 16 01 AA 67 0B 00 AD 2C 03 11 F6 14 2E 12 41 04 92 03 FF 98 A9 2A 04 AA 6C 14 01 AB 2B 15 01 0B 01 00 AB 2B 16 01 0B 01 01 AB 2B 17 01 0B 01 02 AB 2B 18 01 0B 01 03 AF AF AF AF 9F 73 93 00 06 12 01 22 0D 9B 5B 78 67 12 02 8E 05 04 92 09 FF 67 F1 F2 92 0D FF 74 67 13 03 DB F1 F2 F5 BC BB 32 02 23 79 F3 F4 BE BE 32 02 23 79 7A 02 7A 03 7A 02 BB 7A 03 60 02 14 AD 7A 01 32 02 23 79 60 02 14 64 1E 62 64 1F AD 7A 04 30 5F 19 16 ) GF-SIGNATURE N-GENSYMS 0. APPLY FUNCALL &REST GF-ARGORDER GF-METHODS #Y(COMPUTE-EFFECTIVE-METHOD-1 #18Y(00 00 00 00 01 00 00 00 00 02 AB 68 00 01 2F 01 19 02) NIL METHOD-APPLICABLE-P ) NO-APPLICABLE-METHOD STANDARD-METHOD 5. #.#'FOURTH #.#'SIXTH #.#'FIFTH MAPCAP &KEY SORT-APPLICABLE-METHODS PARTITION-METHOD-LIST NO-PRIMARY-METHOD #Y(COMPUTE-EFFECTIVE-METHOD-EF-1 #83Y(00 00 00 00 04 00 00 00 00 05 91 01 2B AE AE AE 07 00 01 33 19 05 B0 B0 B0 94 06 6B 18 68 01 02 DC AD 7A 02 DD DE 68 01 04 AF 7A 03 7A 02 07 01 03 61 03 19 08 92 01 55 93 01 D9 AB DA 71 32 D9 AC DB 8D 32 51 68 01 02 DC AC 7A 02 07 01 03 61 02 19 07 ) NIL STANDARD-METHOD 1. 2. QUOTE FUNCTION LAMBDA ) #Y(COMPUTE-EFFECTIVE-METHOD-EF-2 #69Y(00 00 00 00 03 00 00 00 00 04 AD AC 07 00 02 73 92 03 05 D9 62 AF 1A 1B 15 19 04 93 00 68 01 02 DA DB AD DC 71 32 7A 02 07 01 03 7B 02 83 02 16 01 82 00 9B 20 65 16 01 AA 7F A8 00 AC 7A 01 32 02 23 5C 19 05 ) NIL PROGN QUOTE STANDARD-METHOD 1. ) #Y(COMPUTE-EFFECTIVE-METHOD-EF-3 #67Y(00 00 00 00 02 00 00 00 00 03 AC 07 00 03 73 92 02 08 D9 AB 62 AF 71 4B 1A 1B 15 19 03 93 00 68 01 02 DA DB AD DC 71 32 7A 02 07 01 03 7B 02 83 02 16 01 82 00 9B 20 65 16 01 AA 30 A8 16 01 61 02 19 04 ) NIL MULTIPLE-VALUE-PROG1 QUOTE STANDARD-METHOD 1. ) #Y(COMPUTE-EFFECTIVE-METHOD-EF-4 #58Y(00 00 00 00 01 00 00 00 00 02 93 01 D9 AB DA 71 32 D9 AC DB 8D 32 0E 68 01 02 DC AC 7A 02 07 01 03 61 02 19 04 94 03 07 00 04 73 68 01 02 DC AD 7A 02 AC 07 01 03 61 03 19 05 ) NIL STANDARD-METHOD 1. 2. QUOTE ) #Y(COMPUTE-EFFECTIVE-METHOD-EF-5 #32Y(00 00 00 00 01 00 00 00 00 02 92 01 10 D9 DA 68 01 04 AE 07 00 03 73 7A 03 60 02 19 02 00 19 02 ) NIL FUNCTION LAMBDA ) FUNCTION LAMBDA DECLARE IGNORE &OPTIONAL LET (DECLARE (COMPILE) (INLINE FUNCALL APPLY)) ) ) #Y(#:TOP-LEVEL-FORM-116 #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01 ) (SPECIAL |#'initialize-instance|) |#'initialize-instance| ) #Y(#:TOP-LEVEL-FORM-117 #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01 ) (SPECIAL |#'reinitialize-instance|) |#'reinitialize-instance| ) #Y(#:TOP-LEVEL-FORM-118 #24Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 8B 53 04 D9 62 30 56 C4 19 01 ) (SPECIAL |#'shared-initialize|) |#'shared-initialize| ) #Y(#:TOP-LEVEL-FORM-119 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) STD-ADD-METHOD SYSTEM::REMOVE-OLD-DEFINITIONS #Y(STD-ADD-METHOD #332Y(00 00 00 00 02 00 00 00 00 03 AC 6E 00 D9 AD DA 71 32 93 00 93 02 90 01 2D 1C 9B 5B 77 9D 5B 77 8F 01 2D 2B DB E0 E1 E2 6D 03 07 AF 9E 5B 77 B2 A1 5B 77 32 04 1F DB DC DD DE 6D 03 07 AF 93 03 B2 A1 1A 6E DB E3 E4 E5 6D 03 07 AF A2 1A 23 9B 5B 5B 5A 1C 06 9C 5B 5B 5A 1C 69 9C 5B 5B 5A 1C 80 66 9B 5B 5B 5A 1B 80 5F DB E6 E7 E8 6D 03 07 B0 A1 14 32 02 1F AA 8B 9B 80 63 9C 5B 5B 5B 77 AB 70 9A 89 11 80 57 DB EA EB EC 6D 03 07 AF 9F 5B 5B 5B 77 B2 32 03 1F D9 AD ED 62 31 33 16 01 1A 80 73 AC 2E 1D 1A 80 8F AC 2E 1F 1A 80 89 64 22 64 23 64 24 6D 03 07 AC B0 2C 03 25 AB AF 6E 1A 37 07 31 51 1A 80 78 9C 5B 5B 5B 5A 1C 0F 9B 5B 5B 5B 5A 1B FF 9F 9B 5B 5B 5A 1C FF A9 16 02 D9 AC ED 8E 32 10 AB 80 35 01 D9 AC EE 62 31 33 D9 AC EF AF 31 33 D9 AC EE 8D 32 1A D9 AC F0 71 32 AC 75 01 93 00 D9 AE EE AD 31 33 16 01 9B 5B 5A 1B FF 84 16 01 AC 2E 19 AB AD 6E 1A 37 06 99 1B 01 71 5F AD 0E 1C 21 FF 79 AD 0E 1E 21 FF 79 AD 0E 20 22 03 AC 2E 21 AC 91 01 FF 72 AE 2E 1A 79 AE 2F 26 AD 2E 27 16 01 9D 19 03 ) GF-SIGNATURE STANDARD-METHOD 5. ERROR "~S has ~S, but ~S has ~S required parameters" "~S hat ~S, ~S hat aber ~S Required-Parameter." "~S reτoit ~S arguments obligatoires, mais ~S en reτoit ~S." SYSTEM::LANGUAGE "~S has ~S, but ~S has ~S optional parameters" "~S hat ~S, ~S hat aber ~S optionale Parameter." "~S reτoit ~S arguments facultatifs, mais ~S en reτoit ~S." "~S has &REST or &KEY, but ~S hasn't." "~S hat &REST oder &KEY, ~S jedoch nicht." "~S spΘcifie &REST ou &KEY, mais ~S pas." "~S has &REST or &KEY, but ~S hasn't." "~S hat &REST oder &KEY, ~S jedoch nicht." "~S spΘcifie &REST ou &KEY, mais ~S pas." SUBSETP "~S doesn't accept the keywords ~S of ~S" "~S akzeptiert die Keywords ~S von ~S nicht." "~S n'accepte pas les mots clΘ ~S de ~S." 2. 1. 6. 7. WARN-IF-GF-ALREADY-CALLED GF-METHODS METHODS-AGREE-P |#'initialize-instance| NOTE-II-CHANGE |#'reinitialize-instance| NOTE-RI-CHANGE |#'shared-initialize| NOTE-SI-CHANGE "Replacing method ~S in ~S" "Methode ~S in ~S wird ersetzt." "On remplace la mΘthode ~S dans ~S." WARN #.(SYSTEM::GET-SETF-SYMBOL 'GF-METHODS) FINALIZE-FAST-GF ) ) #Y(#:TOP-LEVEL-FORM-120 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) STD-REMOVE-METHOD SYSTEM::REMOVE-OLD-DEFINITIONS #Y(STD-REMOVE-METHOD #89Y(00 00 00 00 02 00 00 00 00 03 D8 AC D9 71 32 AD 6E 02 37 06 99 03 02 71 5F 92 00 2E AD 2E 04 DD DE DF 6D 03 08 AB AF 2C 03 09 AD 0E 0A 21 20 AD 0E 0C 21 20 AD 0E 0E 22 03 AC 2E 0F AA AE 6E 02 37 07 71 51 AE 2F 10 AD 2E 11 16 01 9D 19 03 AC 2E 0B 1A 68 AC 2E 0D 1A 63 ) STANDARD-METHOD 7. GF-METHODS STD-METHOD-INITFUNCTION WARN-IF-GF-ALREADY-CALLED "Removing method ~S in ~S" "Methode ~S in ~S wird entfernt." "On retire la mΘthode ~S de ~S." SYSTEM::LANGUAGE WARN |#'initialize-instance| NOTE-II-CHANGE |#'reinitialize-instance| NOTE-RI-CHANGE |#'shared-initialize| NOTE-SI-CHANGE #.(SYSTEM::GET-SETF-SYMBOL 'GF-METHODS) FINALIZE-FAST-GF ) ) #Y(#:TOP-LEVEL-FORM-121 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) STD-FIND-METHOD SYSTEM::REMOVE-OLD-DEFINITIONS #Y(STD-FIND-METHOD #72Y(00 00 00 00 03 00 01 00 00 0A 3A 01 02 7D 01 AE 6E 00 62 1A 27 15 19 06 DD DE DF E0 6D 03 09 B0 B0 B0 32 03 1F 86 01 00 D9 AB DA 71 32 B0 8E 05 09 D9 AB DB 71 32 AF 89 04 5B 82 01 AB 8C 97 65 16 02 91 01 53 00 19 05 ) GF-METHODS STANDARD-METHOD 4. 3. SPECIALIZERS-AGREE-P ERROR "~S has no method with qualifiers ~:S and specializers ~S" "~S hat keine Methode mit Bestimmern ~:S und Spezialierung ~S." "~S n'a pas de mΘthode qualifiΘe ~:S qui est spΘcialisΘe sur ~S." SYSTEM::LANGUAGE ) ) #Y(#:TOP-LEVEL-FORM-122 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) DEFMETHOD SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(DEFMETHOD #78Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 29 9D 5B 77 9E 5B 78 AB 88 02 24 E1 62 E2 E3 E4 E5 B1 7A 02 7A 02 7A 03 E6 E5 B0 7A 02 E0 B1 B1 B5 6D 04 0F 7A 03 60 04 19 05 AC 2E 01 19 03 DB DC DD DE 6D 03 07 E0 AE 32 02 1F ) 2. SYSTEM::MACRO-CALL-ERROR FUNCTION-NAME-P PROGRAM-ERROR "~S: the name of a function must be a symbol, not ~S" "~S: Der Name einer Funktion mu▀ ein Symbol sein, nicht: ~S" "~S : Le nom d'une fonction doit Ωtre un symbole et non ~S" SYSTEM::LANGUAGE DEFMETHOD LET EVAL-WHEN (COMPILE) SYSTEM::C-DEFUN QUOTE DO-DEFMETHOD ANALYZE-METHOD-DESCRIPTION ) ) #Y(#:TOP-LEVEL-FORM-123 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-DEFMETHOD SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DO-DEFMETHOD #72Y(00 00 00 00 02 00 00 00 00 03 AC 8B 54 30 AC DE AD DF 71 32 AE 93 01 9D 5B 77 9E 5B 5B 77 01 02 7A 05 93 02 6E 08 2C 03 09 F6 2F 0A 14 AC 2F 0B 9C 19 03 D9 DA DB DC 6D 03 05 AF 32 01 1F AC 6E 00 AA 8E 21 6E 15 1A 64 ) FDEFINITION ERROR "~S doesn't name a generic function" "~S bezeichnet keine generische Funktion." "~S n'est pas ne nom d'une fonction gΘnΘrique." SYSTEM::LANGUAGE STANDARD-METHOD 5. COUNTUP MAKE-FAST-GF SYSTEM::SET-FDEFINITION STD-ADD-METHOD ) ) #Y(#:TOP-LEVEL-FORM-124 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) COUNTUP SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COUNTUP #26Y(00 00 00 00 01 00 00 00 00 02 AB 62 1A 05 85 01 14 83 00 AB 24 00 77 15 19 03 ) 0. ) ) #Y(#:TOP-LEVEL-FORM-125 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) ANALYZE-DEFGENERIC SYSTEM::REMOVE-OLD-DEFINITIONS #Y(ANALYZE-DEFGENERIC #389Y(00 00 00 00 05 00 00 00 00 06 AE 88 00 0F AF AF AF 2C 03 06 41 06 01 03 B5 62 1A 81 48 D9 DA DB DC 6D 03 05 B1 B1 A2 1A 81 28 D9 DF E0 E1 6D 03 05 BC BC CD 1A 80 C2 86 01 00 14 8E 0E 6C 9B 5A 25 0B 80 A7 E4 94 01 8F 00 28 81 17 E5 E6 E7 6D 03 05 BB BB E8 AE 2C 05 11 1A 81 07 D9 EA EB EC 6D 03 05 BC BC 03 15 1A 80 E8 91 03 6F 9B F9 1A 80 F1 D9 EF F0 F1 6D 03 05 BC BC 03 1A 1A 80 79 D9 F3 F4 F5 6D 03 05 BC BC 03 1A 1A 80 C4 AA 71 4A 24 16 5E 9B 5B 77 8E 0A 58 91 02 63 9B 5B F8 1A 80 C0 94 00 64 1E 8D 05 80 B8 D9 64 1F 64 20 64 21 6D 03 05 BC BC 03 22 1A 3E 94 00 64 23 8D 05 80 A0 D9 64 24 64 25 64 26 6D 03 05 BC BC 03 27 1A 26 94 00 64 28 8D 05 80 88 D9 64 29 64 2A 64 2B 6D 03 05 BC BC 03 2C 1A 0E D9 64 2E 64 2F 64 30 6D 03 05 BC BC 03 31 14 A0 1A 13 62 94 02 1A 2B D9 64 32 64 33 64 34 6D 03 05 BD BD AE A4 14 32 04 1F D9 64 36 64 37 03 38 1A 2E 93 00 AA B5 37 06 8E 62 5C 14 83 02 16 01 82 00 9B 20 6D 16 01 AA 7F A8 00 64 35 9C 36 00 1C 57 AA 71 4A B4 8D 04 12 D9 64 39 64 3A 03 3B 14 6D 03 05 BB BB A1 14 32 03 1F 15 1A 1A BA BA 94 02 B9 6D 04 2D 83 04 82 01 AB 8C 97 FE CD 16 02 91 01 FF 8D B2 2E 3C 14 B3 B2 B2 B2 B2 7A 05 AB AF 71 4C 93 04 3F 04 19 10 ) FUNCTION-NAME-P PROGRAM-ERROR "~S: the name of a function must be a symbol, not ~S" "~S: Der Name einer Funktion mu▀ ein Symbol sein, nicht: ~S" "~S : Le nom d'une fonction doit Ωtre un symbole et non ~S" SYSTEM::LANGUAGE ANALYZE-DEFGENERIC-LAMBDALIST "~S ~S: not a ~S option: ~S" "~S ~S: Das ist keine ~S-Option: ~S" "~S ~S : Ceci n'est pas une option ~S: ~S" DEFGENERIC #S(HASH-TABLE EQ (:METHOD . 279.) (:METHOD-CLASS . 145.) (:GENERIC-FUNCTION-CLASS . 121.) (:METHOD-COMBINATION . 97.) (:DOCUMENTATION . 76.) (:ARGUMENT-PRECEDENCE-ORDER . 40.) (DECLARE . 2.) ) #Y(ANALYZE-DEFGENERIC-1 #23Y(00 00 00 00 01 00 00 00 00 02 AB 31 07 1E 06 93 01 C3 59 19 02 19 02 ) OPTIMIZE ) "~S ~S: Only ~S declarations are permitted: ~S" "~S ~S: Erlaubt sind nur ~S-Deklarationen: ~S" "~S ~S : Seules les dΘclarations ~S sont permises: ~S" OPTIMIZE WARN "~S ~S: ~S may only be specified once." "~S ~S: ~S darf nur einmal angegeben werden." "~S ~S : ~S ne peut Ωtre spΘcifiΘ qu'une seule fois." :ARGUMENT-PRECEDENCE-ORDER 2. "~S ~S: A string must be specified after ~S : ~S" "~S ~S: Nach ~S mu▀ ein String angegeben werden: ~S" "~S ~S : Il faut une chaεne aprΦs ~S : ~S" :DOCUMENTATION "~S ~S: Only one ~S string is allowed" "~S ~S: Es ist h÷chstens ein ~S-String erlaubt." "~S ~S : Il faut qu'une seule chaεne ~S." (STANDARD) "~S ~S: The only valid method combination is ~S : ~S" "~S ~S: Als Methodenkombination ist nur ~S zugelassen: ~S" "~S ~S : La seule combinaison de mΘthodes valable est ~S : ~S" STANDARD (STANDARD-GENERIC-FUNCTION) "~S ~S: The only valid generic function class name is ~S : ~S" "~S ~S: Als Name der Klasse der generischen Funktion ist nur ~S zugelassen: ~S" "~S ~S : Le seul nom valable d'une classe de fonction gΘnΘrique est ~S : ~S" STANDARD-GENERIC-FUNCTION (STANDARD-METHOD) "~S ~S: The only valid method class name is ~S : ~S" "~S ~S: Als Name der Klasse der Methoden ist nur ~S zugelassen: ~S" "~S ~S : Le seul nom valable d'une classe de mΘthodes est ~S : ~S" STANDARD-METHOD ANALYZE-METHOD-DESCRIPTION "~S ~S: invalid syntax in ~S option: ~S" "~S ~S: Falsche Syntax in ~S-Option: ~S" "~S ~S : Mauvaise syntaxe dans l'option ~S: ~S" DEFSTRUCT "~S ~S: ~S is not one of the required parameters: ~S" "~S ~S: ~S ist keiner der notwendigen Parameter: ~S" "~S ~S : ~S n'est pas parmi les noms d'arguments obligatoires: ~S" #.#'/= "~S ~S: some variable occurs twice in ~S" "~S ~S: eine Variable taucht in ~S doppelt auf." "~S ~S : une variable apparaεt plusieurs fois dans ~S." "~S ~S: ~S is missing some required parameter" "~S ~S: ~S enthΣlt nicht alle notwendigen Parameter." "~S ~S : ~S ne contient pas tous les noms d'arguments obligatoires." COUNTUP ) ) #Y(#:TOP-LEVEL-FORM-126 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) ANALYZE-DEFGENERIC-LAMBDALIST SYSTEM::REMOVE-OLD-DEFINITIONS #Y(ANALYZE-DEFGENERIC-LAMBDALIST #253Y(00 00 00 00 03 00 00 00 00 04 00 2A 02 7E 04 00 00 7E 03 00 01 9B 2A 01 00 0B 00 00 D8 01 03 D9 B2 8F 00 27 06 AE 6C 07 01 1A 14 DA DB DC C8 1A 80 A7 93 08 82 09 9C 73 06 06 00 5C 0B 05 00 A3 1F 05 93 08 88 08 6B A3 1F 24 93 08 24 09 1F 82 08 1A 13 9B 5A 1A 08 93 08 82 09 9B 20 75 9B 14 9D 33 84 05 16 01 A3 1F 05 93 08 88 08 69 A3 1F 12 93 08 24 0A 0D A3 5B 1F 09 82 08 77 82 09 9C 33 7D 03 A3 1F 80 49 93 08 24 0B 80 43 82 08 7D 03 1A 29 9B 5B 5A 1A 12 9B 5A 1A 1B 93 08 82 09 9B 1F 03 86 00 00 9B 20 6A 9B 14 9D 33 9B 20 68 AA 71 8E 6A 0C 30 D8 14 83 03 16 01 A3 1F 05 93 08 88 08 58 A3 1F 09 93 08 24 0D 04 82 08 7D 01 16 01 92 07 12 DA E6 E7 D3 14 6D 03 06 67 07 00 67 08 01 B5 32 03 1F 67 04 00 71 4A 67 05 00 71 4C AF 91 05 01 00 14 AF AF 3F 06 19 0A ) 0. #Y(ANALYZE-DEFGENERIC-LAMBDALIST-1 #21Y(00 00 00 00 01 00 00 00 00 02 AB 31 07 1E 04 9C 5B 19 02 19 02) ) PROGRAM-ERROR "~S ~S: No initializations are allowed in a generic function lambda-list: ~S" "~S ~S: In der Lambda-Liste einer generischen Funktion sind keine Initialisierungen erlaubt: ~S" "~S ~S : Des initialisations ne sont pas permises dans la liste lambda d'une fonction gΘnΘrique: ~S" SYSTEM::LANGUAGE #Y(ANALYZE-DEFGENERIC-LAMBDALIST-CHECK-VARNAME #51Y(00 00 00 00 01 00 00 00 00 02 AB 8E 09 1C AB 68 00 01 DE 37 02 8C B8 18 D9 DF E0 CC 14 6D 03 05 68 01 01 68 01 02 AF 32 03 1F D9 DA DB C7 1A 6C 9C 19 02 ) NIL PROGRAM-ERROR "~S ~S: variable name ~S should be a symbol" "~S ~S: Variablenname mu▀ ein Symbol sein, nicht ~S" "~S ~S : le nom de variable ~S devrait Ωtre un symbole." SYSTEM::LANGUAGE #.#'EQ "~S ~S: duplicate variable name ~S" "~S ~S: Variablenname ~S darf nicht mehrfach auftreten." "~S ~S : le nom de variable ~S apparaεt plusieurs fois." ) LAMBDA-LIST-KEYWORD-P &OPTIONAL &REST &KEY *KEYWORD-PACKAGE* &ALLOW-OTHER-KEYS "~S ~S: invalid lambda list portion: ~S" "~S ~S: Lambda-Liste enthΣlt UnzulΣssiges: ~S" "~S ~S : liste lambda partiellement invalide: ~S" ) ) #Y(#:TOP-LEVEL-FORM-127 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DEFGENERIC-LAMBDALIST-CALLINFO SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DEFGENERIC-LAMBDALIST-CALLINFO #28Y(00 00 00 00 03 00 00 00 00 04 AD AD AD 2C 03 00 41 06 AF AE AE AE AE 2C 05 01 19 0A ) ANALYZE-DEFGENERIC-LAMBDALIST CALLINFO ) ) #Y(#:TOP-LEVEL-FORM-128 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) DEFGENERIC SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(DEFGENERIC #126Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 80 40 9D 5B 77 9E 5B 5B 77 9F 5B 5B 78 DA AD AD AD B2 2C 05 03 41 04 DC 62 DD DE DF E0 B6 7A 02 7A 02 7A 03 91 03 24 00 14 E5 E0 B6 7A 02 E0 B4 7A 02 E0 B4 7A 02 A4 7B 04 7A 01 32 02 23 61 03 19 0A AC 2E 01 19 03 E0 A5 1A 0D A4 1F 79 E1 E2 E0 A7 5B 77 7A 02 60 02 14 7A 02 E3 AB E4 E0 B2 7A 02 7A 04 60 01 16 01 1A FF BD ) 3. SYSTEM::MACRO-CALL-ERROR DEFGENERIC ANALYZE-DEFGENERIC LET EVAL-WHEN (COMPILE) SYSTEM::C-DEFUN QUOTE LOAD-TIME-VALUE SYSTEM::GET-SETF-SYMBOL SYSTEM::%SET-DOCUMENTATION 'FUNCTION DO-DEFGENERIC ) ) #Y(#:TOP-LEVEL-FORM-129 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAKE-GENERIC-FUNCTION SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-GENERIC-FUNCTION #41Y(00 00 00 00 03 00 00 00 01 19 AE AE AE 6D 03 00 AC 62 1A 09 86 01 00 AC AB 2F 01 82 01 AB 8C 97 73 16 02 AA 2E 02 15 19 05 ) MAKE-FAST-GF STD-ADD-METHOD FINALIZE-FAST-GF ) ) #Y(#:TOP-LEVEL-FORM-130 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) DO-DEFGENERIC SYSTEM::REMOVE-OLD-DEFINITIONS #Y(DO-DEFGENERIC #122Y(00 00 00 00 03 00 00 00 01 19 AE 8B 54 80 44 AE 98 16 B0 B0 B0 A1 76 03 2F 17 19 05 AA 2E 01 AA 88 02 0D DB DC DD 6D 03 06 AB 2F 07 62 AB 2F 08 AE AB 6E 09 8E 05 07 AD AB 6E 0A 8D 05 11 E3 E4 E5 6D 03 06 AB 2F 07 AE AB 2F 0E AD AB 2F 0F AC 62 1A 1B AE 6E 00 AA 8D 21 42 EA EB EC ED 6D 03 06 B1 32 01 1F 86 01 00 AC AB 2F 10 82 01 AB 8C 97 73 16 02 AA 2E 11 15 19 05 ) FDEFINITION WARN-IF-GF-ALREADY-CALLED GF-METHODS "Removing all methods of ~S" "Alle Methoden von ~S werden entfernt." "On enlΦve toutes les mΘthodes de ~S." SYSTEM::LANGUAGE WARN #.(SYSTEM::GET-SETF-SYMBOL 'GF-METHODS) GF-SIGNATURE GF-ARGORDER "Modifying the parameter profile of ~S" "Das Parameter-Profil von ~S wird modifiziert." "On change le nombre / l'ordre des arguments de ~S." #.(SYSTEM::GET-SETF-SYMBOL 'GF-SIGNATURE) #.(SYSTEM::GET-SETF-SYMBOL 'GF-ARGORDER) STD-ADD-METHOD FINALIZE-FAST-GF ERROR "~S doesn't name a generic function" "~S bezeichnet keine generische Funktion." "~S n'est pas le nom d'une fonction gΘnΘrique." MAKE-GENERIC-FUNCTION SYSTEM::SET-FDEFINITION ) ) #Y(#:TOP-LEVEL-FORM-131 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAKE-GENERIC-FUNCTION-FORM SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-GENERIC-FUNCTION-FORM #38Y(00 00 00 00 05 00 00 00 00 06 AF AF AF AF AF 2C 05 00 41 04 D9 DA B4 7A 02 DA B0 7A 02 DA B0 7A 02 A0 61 04 19 0A ) ANALYZE-DEFGENERIC MAKE-GENERIC-FUNCTION QUOTE ) ) #Y(#:TOP-LEVEL-FORM-132 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) GENERIC-FUNCTION SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(GENERIC-FUNCTION #41Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 10 9D 5B 77 9E 5B 78 DA DB AD AD B1 2C 05 04 19 05 AC 2E 01 19 03 ) 2. SYSTEM::MACRO-CALL-ERROR GENERIC-FUNCTION LAMBDA MAKE-GENERIC-FUNCTION-FORM ) ) #Y(#:TOP-LEVEL-FORM-133 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) ANALYZE-GENERIC-FUNDEFS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(ANALYZE-GENERIC-FUNDEFS #74Y(00 00 00 00 03 00 00 00 00 04 01 02 AE 62 1A 2A D8 D9 DA DB 6D 03 04 B3 AD 32 02 1F 86 01 00 1F 6F 9B 5B 1F 6B 93 00 83 03 B1 93 01 9D 5B 77 9E 5B 78 B3 6D 05 05 83 02 82 01 AB 8C 97 5E 16 02 AB 71 4C AB 71 4C 3F 02 19 06 ) PROGRAM-ERROR "~S: ~S is not a generic function specification" "~S: ~S ist keine Spezifikation einer generischen Funktion." "~S: ~S n'est pas une spΘcification de fonction gΘnΘrique." SYSTEM::LANGUAGE MAKE-GENERIC-FUNCTION-FORM ) ) #Y(#:TOP-LEVEL-FORM-134 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) GENERIC-FLET SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(GENERIC-FLET #101Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 20 9D 5B 77 9E 5B 78 DA AC AF 2C 03 03 41 02 AB 71 4A 6E 04 DD DE AC AE 72 01 17 DF 62 AE B1 1A 21 AC 2E 01 19 03 16 03 1A 1D 93 01 9C 1F 77 93 01 AA E0 E1 AE CD 7B 02 7A 03 83 04 16 02 82 01 82 00 9C 20 65 16 02 AA 7F A8 00 A2 7B 02 60 03 19 08 ) 2. SYSTEM::MACRO-CALL-ERROR GENERIC-FLET ANALYZE-GENERIC-FUNDEFS N-GENSYMS LET #.#'LIST FLET (&REST ARGS) APPLY (ARGS) ) ) #Y(#:TOP-LEVEL-FORM-135 #22Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 84 C3 19 01) GENERIC-LABELS SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO #Y(GENERIC-LABELS #137Y(00 00 00 00 01 00 01 00 00 08 3C 01 AC 71 4A D8 8F 01 2F 1B 9D 5B 77 9E 5B 78 DA AC AF 2C 03 03 41 02 AB 71 4A 6E 04 DD AB DE 62 AE B1 1A 21 AC 2E 01 19 03 16 03 1A 1D 93 01 9C 1F 77 93 01 AA DF E0 AE CC 7B 02 7A 03 83 04 16 02 82 01 82 00 9C 20 65 16 02 AA 7F A8 00 62 AF B1 1A 18 16 03 1A 19 93 01 9C 1F 77 93 01 E2 AC AC 7A 03 83 04 16 02 82 01 82 00 9C 20 69 16 02 AA 7F A8 00 B2 32 02 23 7B 02 60 03 19 08 ) 2. SYSTEM::MACRO-CALL-ERROR GENERIC-LABELS ANALYZE-GENERIC-FUNDEFS N-GENSYMS LET FLET (&REST ARGS) APPLY (ARGS) SETQ ) ) #Y(#:TOP-LEVEL-FORM-136 #37Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2D 7A 01 E0 62 E1 E2 6D 0A 0B 2C 04 0C 19 01 ) CLASS-NAME (1. 0. NIL NIL NIL) (0.) :INITFUNCTION #Y(#:TOP-LEVEL-FORM-136-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #Y(#:TOP-LEVEL-FORM-136-1-1 #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) CLASS 2. ) (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS CLASS :QUALIFIERS :SIGNATURE (1. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-137 #42Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE 63 37 02 71 2D DF 37 02 71 2D 7A 02 E0 62 E1 E2 6D 0A 0B 2C 04 0C 19 01 ) (SETF CLASS-NAME) (2. 0. NIL NIL NIL) (0. 1.) :INITFUNCTION #Y(#:TOP-LEVEL-FORM-137-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #Y(#:TOP-LEVEL-FORM-137-1-1 #54Y(00 00 00 00 02 00 00 00 00 03 AC 8E 09 0C AB 87 09 18 E7 AC E8 AF 31 33 19 03 D8 D9 AE DA DB DC DD DE 6D 03 07 E0 B3 32 06 1F E2 E3 E4 E5 6D 03 07 E6 AE 32 02 1F ) TYPE-ERROR :DATUM :EXPECTED-TYPE SYMBOL "~S: The name of a class must be a symbol, not ~S" "~S: Der Name einer Klasse mu▀ ein Symbol sein, nicht ~S" "~S : Le nom d'une classe doit Ωtre un symbole et non ~S." SYSTEM::LANGUAGE (SETF CLASS-NAME) BUILT-IN-CLASS-P ERROR "~S: The name of the built-in class ~S cannot be modified" "~S: Der Name der Built-In-Klasse ~S kann nicht verΣndert werden." "~S : Le nom de la classe prΘdΘfinie ~S ne peut pas Ωtre changΘe." (SETF CLASS-NAME) CLASS 2. ) (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS CLASS :QUALIFIERS :SIGNATURE (2. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-138 #37Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE 63 37 02 71 2D 7A 01 DF 62 E0 E1 6D 0A 0A 2C 04 0B 19 01 ) NO-APPLICABLE-METHOD (1. 0. T NIL NIL) (0.) :INITFUNCTION #Y(#:TOP-LEVEL-FORM-138-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #Y(#:TOP-LEVEL-FORM-138-1-1 #23Y(00 00 00 00 01 00 00 00 01 17 D8 D9 DA DB 6D 03 04 DD AF AF 32 03 1F ) ERROR "~S: When calling ~S with arguments ~S, no method is applicable." "~S: Beim Aufruf von ~S mit Argumenten ~S ist keine Methode anwendbar." "~S : └ l'appel de ~S avec les arguments ~S, aucune mΘthode ne s'applique." SYSTEM::LANGUAGE NO-APPLICABLE-METHOD ) (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE (1. 0. T NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-139 #37Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE 63 37 02 71 2D 7A 01 DF 62 E0 E1 6D 0A 0A 2C 04 0B 19 01 ) NO-PRIMARY-METHOD (1. 0. T NIL NIL) (0.) :INITFUNCTION #Y(#:TOP-LEVEL-FORM-139-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #Y(#:TOP-LEVEL-FORM-139-1-1 #23Y(00 00 00 00 01 00 00 00 01 17 D8 D9 DA DB 6D 03 04 DD AF AF 32 03 1F ) ERROR "~S: When calling ~S with arguments ~S, no primary method is applicable." "~S: Beim Aufruf von ~S mit Argumenten ~S ist keine primΣre Methode anwendbar." "~S : └ l'appel de ~S avec les arguments ~S, aucune mΘthode primaire ne s'applique." SYSTEM::LANGUAGE NO-PRIMARY-METHOD ) (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE (1. 0. T NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-140 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) %NO-NEXT-METHOD SYSTEM::REMOVE-OLD-DEFINITIONS #Y(%NO-NEXT-METHOD #22Y(00 00 00 00 01 00 00 00 01 17 98 00 D9 AE DA 71 32 AE 9F 9A 02 03) NO-NEXT-METHOD STANDARD-METHOD 6. ) ) #Y(#:TOP-LEVEL-FORM-141 #42Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2D E0 37 02 71 2D 7A 02 E1 62 E2 E3 6D 0A 0C 2C 04 0D 19 01 ) NO-NEXT-METHOD (2. 0. T NIL NIL) (0. 1.) :INITFUNCTION #Y(#:TOP-LEVEL-FORM-141-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #Y(#:TOP-LEVEL-FORM-141-1-1 #25Y(00 00 00 00 02 00 00 00 01 18 D8 D9 DA DB 6D 03 04 DD B0 AF B1 DE 32 05 1F ) ERROR "~S: When calling ~S with arguments ~S, there is no next method after ~S, and ~S was called." "~S: Beim Aufruf von ~S mit Argumenten ~S gibt es nach ~S keine weitere Methode, und ~S wurde aufgerufen." "~S : └ l'appel de ~S avec les arguments ~S, il n'y a plus de mΘthode aprΦs ~S, et ~S a ΘtΘ appelΘ." SYSTEM::LANGUAGE NO-NEXT-METHOD (CALL-NEXT-METHOD) ) (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-GENERIC-FUNCTION STANDARD-METHOD :QUALIFIERS :SIGNATURE (2. 0. T NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-142 #47Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2D 63 37 02 71 2D 63 37 02 71 2D 7A 03 E0 62 E1 E2 6D 0A 0B 2C 04 0C 19 01 ) FIND-METHOD (3. 1. NIL NIL NIL) (0. 1. 2.) :INITFUNCTION #Y(#:TOP-LEVEL-FORM-142-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #Y(#:TOP-LEVEL-FORM-142-1-1 #28Y(00 00 00 00 03 00 00 00 01 19 9C 38 01 01 3A 00 02 7D 00 AF AF AF AD 2C 04 00 19 06 ) STD-FIND-METHOD ) (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-GENERIC-FUNCTION :QUALIFIERS :SIGNATURE (3. 1. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-143 #42Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2D E0 37 02 71 2D 7A 02 E1 62 E2 E3 6D 0A 0C 2C 04 0D 19 01 ) ADD-METHOD (2. 0. NIL NIL NIL) (0. 1.) :INITFUNCTION #Y(#:TOP-LEVEL-FORM-143-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #Y(#:TOP-LEVEL-FORM-143-1-1 #16Y(00 00 00 00 02 00 00 00 00 03 AC AC 2F 00 19 03) STD-ADD-METHOD ) (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-GENERIC-FUNCTION STANDARD-METHOD :QUALIFIERS :SIGNATURE (2. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-144 #42Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2D E0 37 02 71 2D 7A 02 E1 62 E2 E3 6D 0A 0C 2C 04 0D 19 01 ) REMOVE-METHOD (2. 0. NIL NIL NIL) (0. 1.) :INITFUNCTION #Y(#:TOP-LEVEL-FORM-144-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #Y(#:TOP-LEVEL-FORM-144-1-1 #16Y(00 00 00 00 02 00 00 00 00 03 AC AC 2F 00 19 03) STD-REMOVE-METHOD ) (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-GENERIC-FUNCTION STANDARD-METHOD :QUALIFIERS :SIGNATURE (2. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-145 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) COMPUTE-APPLICABLE-METHODS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(COMPUTE-APPLICABLE-METHODS #61Y(00 00 00 00 02 00 00 00 00 03 AC 2E 00 77 AD 6E 01 AD 71 4A AC 8F 01 32 03 00 19 05 00 2A 01 AE DA AE 31 48 0B 00 00 AA 6C 03 01 AC 37 05 80 53 01 14 67 01 00 B1 6E 04 2C 03 05 19 06 ) GF-SIGNATURE GF-METHODS 0. #Y(COMPUTE-APPLICABLE-METHODS-1 #18Y(00 00 00 00 01 00 00 00 00 02 AB 68 00 01 2F 01 19 02) NIL METHOD-APPLICABLE-P ) GF-ARGORDER SORT-APPLICABLE-METHODS ) ) #Y(#:TOP-LEVEL-FORM-146 #37Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2D 7A 01 E0 62 E1 E2 6D 0A 0B 2C 04 0C 19 01 ) METHOD-QUALIFIERS (1. 0. NIL NIL NIL) (0.) :INITFUNCTION #Y(#:TOP-LEVEL-FORM-146-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #Y(#:TOP-LEVEL-FORM-146-1-1 #17Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 19 02) STANDARD-METHOD 4. ) (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-METHOD :QUALIFIERS :SIGNATURE (1. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-147 #37Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2D 7A 01 E0 62 E1 E2 6D 0A 0B 2C 04 0C 19 01 ) FUNCTION-KEYWORDS (1. 0. NIL NIL NIL) (0.) :INITFUNCTION #Y(#:TOP-LEVEL-FORM-147-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #Y(#:TOP-LEVEL-FORM-147-1-1 #22Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 5B 5B 5B 5B 43 19 02 ) STANDARD-METHOD 5. ) (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-METHOD :QUALIFIERS :SIGNATURE (1. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-148 #52Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE 63 37 02 71 2D 63 37 02 71 2D 63 37 02 71 2D 63 37 02 71 2D 7A 04 DF 62 E0 E1 6D 0A 0A 2C 04 0B 19 01 ) SLOT-MISSING (4. 1. NIL NIL NIL) (0. 1. 2. 3.) :INITFUNCTION #Y(#:TOP-LEVEL-FORM-148-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #Y(#:TOP-LEVEL-FORM-148-1-1 #27Y(00 00 00 00 04 00 00 00 01 1A 9C 38 01 01 D8 D9 DA DB 6D 03 04 AF B3 B2 32 03 1F ) ERROR "~S: The class ~S has no slot named ~S" "~S: Die Klasse ~S hat keinen Slot mit Namen ~S." "~S : La classe ~S n'a pas de composant de nom ~S." SYSTEM::LANGUAGE ) (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE (4. 1. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-149 #47Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE 63 37 02 71 2D 63 37 02 71 2D 63 37 02 71 2D 7A 03 DF 62 E0 E1 6D 0A 0A 2C 04 0B 19 01 ) SLOT-UNBOUND (3. 0. NIL NIL NIL) (0. 1. 2.) :INITFUNCTION #Y(#:TOP-LEVEL-FORM-149-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #Y(#:TOP-LEVEL-FORM-149-1-1 #23Y(00 00 00 00 03 00 00 00 00 04 D8 D9 DA DB 6D 03 04 DD AE B0 32 03 1F ) ERROR "~S: The slot ~S of ~S has no value" "~S: Der Slot ~S von ~S hat keinen Wert." "~S : Le composant ~S de ~S n'a pas de valeur." SYSTEM::LANGUAGE SLOT-VALUE ) (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS :QUALIFIERS :SIGNATURE (3. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-150 #42Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2D 63 37 02 71 2D 7A 02 E0 62 E1 E2 6D 0A 0B 2C 04 0C 19 01 ) PRINT-OBJECT (2. 0. NIL NIL NIL) (0. 1.) :INITFUNCTION #Y(#:TOP-LEVEL-FORM-150-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #Y(#:TOP-LEVEL-FORM-150-1-1 #22Y(00 00 00 00 02 00 00 00 00 03 62 AD AD D8 63 D9 63 2C 07 02 19 03 ) :TYPE :IDENTITY SYSTEM::WRITE-UNREADABLE ) (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-OBJECT :QUALIFIERS :SIGNATURE (2. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-151 #42Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2D 63 37 02 71 2D 7A 02 E0 62 E1 E2 6D 0A 0B 2C 04 0C 19 01 ) DESCRIBE-OBJECT (2. 0. NIL NIL NIL) (0. 1.) :INITFUNCTION #Y(#:TOP-LEVEL-FORM-151-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #Y(#:TOP-LEVEL-FORM-151-1-1 #150Y(00 00 00 00 02 00 00 00 00 03 62 AD 71 2C D8 AB D9 80 32 00 1A 80 67 DB AB 72 00 17 DC DD DE AD 72 00 17 37 05 71 4E 72 02 35 AE DF E0 E1 6D 03 0A 2F 0B AC AC 1A 33 B2 E5 B5 AE 71 40 2C 03 0B 16 02 1A 22 16 03 1A 27 93 01 9C 1F 77 93 01 B2 E4 AC B1 2C 04 0B B3 AC 8D 42 5C B2 E6 E7 E8 6D 03 0A 2F 0B 16 02 82 01 82 00 9C 20 5B 16 02 9D 19 06 93 00 AA C5 5E 14 83 02 16 01 82 00 9B 20 71 16 01 AA 7F A8 00 91 00 FF 8C AC E9 EA EB 6D 03 0A 2F 0B 19 04 ) SLOTTED-CLASS 7. 0. #.#'WRITE-TO-STRING 4. #.#'MAX #.#'LENGTH "~%Slots:" "~%Slots:" "~%Composants:" SYSTEM::LANGUAGE FORMAT #Y(#:TOP-LEVEL-FORM-151-1-1-1 #31Y(00 00 00 00 03 00 00 00 01 19 D8 AF 37 02 30 8E AD AF 30 89 AE 01 02 AF 62 2C 05 01 9C 19 05 ) " " SYSTEM::FORMAT-TABULATE ) #Y(#:TOP-LEVEL-FORM-151-1-1-2 #23Y(00 00 00 00 02 00 00 00 01 18 D8 AE 37 02 30 8E AC AE 30 86 9C 19 04 ) "= " ) "unbound" "ohne Wert" "aucune valeur" "~%No slots." "~%Keine Slots." "~%Aucun composant." ) (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-OBJECT :QUALIFIERS :SIGNATURE (2. 0. NIL NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-152 #25Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 37 05 C5 F9 70 67 30 56 C4 19 01 ) (SPECIAL *MAKE-INSTANCE-TABLE*) *MAKE-INSTANCE-TABLE* #.#'EQ ) #Y(#:TOP-LEVEL-FORM-153 #25Y(00 00 00 00 00 00 00 00 00 01 D8 30 5E D9 37 05 C5 F9 70 67 30 56 C4 19 01 ) (SPECIAL *REINITIALIZE-INSTANCE-TABLE*) *REINITIALIZE-INSTANCE-TABLE* #.#'EQ ) #Y(#:TOP-LEVEL-FORM-154 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) NOTE-I-CHANGE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(NOTE-I-CHANGE #32Y(00 00 00 00 02 00 00 00 00 03 00 2A 02 7E 03 00 00 7E 02 00 01 AA 6C 00 01 67 01 01 30 6B 19 04 ) #Y(NOTE-I-CHANGE-1 #28Y(00 00 00 00 02 00 00 00 00 03 AC 68 00 01 89 01 03 00 19 03 AC 68 00 02 30 6A 19 03 ) NIL SUBCLASSP ) ) ) #Y(#:TOP-LEVEL-FORM-155 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) NOTE-II-CHANGE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(NOTE-II-CHANGE #29Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 77 9B 20 07 AA 6A 02 2F 03 19 03 00 19 03 ) STANDARD-METHOD 3. *MAKE-INSTANCE-TABLE* NOTE-I-CHANGE ) ) #Y(#:TOP-LEVEL-FORM-156 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) NOTE-RI-CHANGE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(NOTE-RI-CHANGE #29Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 31 32 77 9B 20 07 AA 6A 02 2F 03 19 03 00 19 03 ) STANDARD-METHOD 3. *REINITIALIZE-INSTANCE-TABLE* NOTE-I-CHANGE ) ) #Y(#:TOP-LEVEL-FORM-157 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) NOTE-SI-CHANGE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(NOTE-SI-CHANGE #48Y(00 00 00 00 01 00 00 00 00 02 D8 AC D9 71 32 93 00 9C 5B 77 9C 20 0F 63 AB 8A 02 05 AB 6A 03 2F 04 62 AB 89 02 03 00 19 05 AB 6A 05 2F 04 19 05 ) STANDARD-METHOD 3. TYPEP *MAKE-INSTANCE-TABLE* NOTE-I-CHANGE *REINITIALIZE-INSTANCE-TABLE* ) ) #Y(#:TOP-LEVEL-FORM-158 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) VALID-INITARG-KEYWORDS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(VALID-INITARG-KEYWORDS #62Y(00 00 00 00 02 00 00 00 00 03 62 AC 1A 0D 93 00 D8 AB D9 71 32 83 02 16 01 82 00 9B 20 70 16 01 AA 7F A8 00 DA AB 37 05 80 56 00 DB AE DC 71 32 DD AC 6F 06 72 02 23 63 37 05 31 57 19 04 ) STANDARD-METHOD 5. #.#'FOURTH SLOTTED-CLASS 9. #.#'FIFTH MAPCAP ) ) #Y(#:TOP-LEVEL-FORM-159 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) VALID-MAKE-INSTANCE-KEYWORDS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(VALID-MAKE-INSTANCE-KEYWORDS #49Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 7E 02 00 00 14 AB 6C 00 01 6A 01 6E 02 37 05 71 53 AC 6C 03 01 6A 04 6E 02 37 05 71 53 72 02 23 2F 05 19 03 ) #Y(VALID-MAKE-INSTANCE-KEYWORDS-1 #41Y(00 00 00 00 01 00 00 00 00 02 D9 AC DA 71 32 93 00 9C 5B 77 AB 31 08 1E 0E 68 00 01 AC 2F 03 1E 06 63 AB 2F 04 19 05 19 05 ) NIL STANDARD-METHOD 3. SUBCLASSP TYPEP ) |#'shared-initialize| GF-METHODS #Y(VALID-MAKE-INSTANCE-KEYWORDS-2 #31Y(00 00 00 00 01 00 00 00 00 02 D9 AC DA 31 32 77 AA 31 08 1E 08 68 00 01 AB 2F 03 19 03 19 03 ) NIL STANDARD-METHOD 3. SUBCLASSP ) |#'initialize-instance| VALID-INITARG-KEYWORDS ) ) #Y(#:TOP-LEVEL-FORM-160 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAKE-INSTANCE-TABLE-ENTRY2 SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-INSTANCE-TABLE-ENTRY2 #25Y(00 00 00 00 01 00 00 00 00 02 6A 00 AC 6F 01 6A 02 AD 63 2C 03 01 5C 19 02 ) |#'initialize-instance| COMPUTE-EFFECTIVE-METHOD |#'shared-initialize| ) ) #Y(#:TOP-LEVEL-FORM-161 #18Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01) SHARED-INITIALIZE (2. 0. T NIL NIL) (0. 1.) DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-162 #16Y(00 00 00 00 00 00 00 00 00 01 97 00 0F 01 19 01) SHARED-INITIALIZE |#'shared-initialize| ) #Y(#:TOP-LEVEL-FORM-163 #39Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 62 DC DD 37 02 71 2D 63 37 02 71 2D 7A 02 DE 62 DF E0 6D 0A 09 2F 0A 19 01 ) SHARED-INITIALIZE :INITFUNCTION #Y(#:TOP-LEVEL-FORM-163-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #.#'%SHARED-INITIALIZE (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-OBJECT :QUALIFIERS :SIGNATURE (2. 0. T T NIL T) MAKE-STANDARD-METHOD DO-DEFMETHOD ) #Y(#:TOP-LEVEL-FORM-164 #39Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 62 DC DD 37 02 71 2D 63 37 02 71 2D 7A 02 DE 62 DF E0 6D 0A 09 2F 0A 19 01 ) SHARED-INITIALIZE :INITFUNCTION #Y(#:TOP-LEVEL-FORM-164-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #.#'%SHARED-INITIALIZE (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STRUCTURE-OBJECT :QUALIFIERS :SIGNATURE (2. 0. T T NIL T) MAKE-STANDARD-METHOD DO-DEFMETHOD ) #Y(#:TOP-LEVEL-FORM-165 #18Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01) REINITIALIZE-INSTANCE (1. 0. T NIL NIL) (0.) DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-166 #16Y(00 00 00 00 00 00 00 00 00 01 97 00 0F 01 19 01) REINITIALIZE-INSTANCE |#'reinitialize-instance| ) #Y(#:TOP-LEVEL-FORM-167 #34Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 62 DC DD 37 02 71 2D 7A 01 DE 62 DF E0 6D 0A 09 2F 0A 19 01 ) REINITIALIZE-INSTANCE :INITFUNCTION #Y(#:TOP-LEVEL-FORM-167-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #.#'%REINITIALIZE-INSTANCE (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-OBJECT :QUALIFIERS :SIGNATURE (1. 0. T T NIL T) MAKE-STANDARD-METHOD DO-DEFMETHOD ) #Y(#:TOP-LEVEL-FORM-168 #34Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 62 DC DD 37 02 71 2D 7A 01 DE 62 DF E0 6D 0A 09 2F 0A 19 01 ) REINITIALIZE-INSTANCE :INITFUNCTION #Y(#:TOP-LEVEL-FORM-168-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #.#'%REINITIALIZE-INSTANCE (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STRUCTURE-OBJECT :QUALIFIERS :SIGNATURE (1. 0. T T NIL T) MAKE-STANDARD-METHOD DO-DEFMETHOD ) #Y(#:TOP-LEVEL-FORM-169 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) INITIAL-REINITIALIZE-INSTANCE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(INITIAL-REINITIALIZE-INSTANCE #67Y(00 00 00 00 01 00 00 00 01 17 00 2A 01 AD 31 2C 0B 00 00 14 AB 6C 00 01 6A 01 6E 02 37 05 71 53 6F 03 AD AB 30 64 6A 01 AF 62 6D 03 04 67 02 00 6A 05 AD 9E 79 AC AC AC 30 69 16 03 AA B0 62 A2 9A 02 06 ) #Y(INITIAL-REINITIALIZE-INSTANCE-1 #41Y(00 00 00 00 01 00 00 00 00 02 D9 AC DA 71 32 93 00 9C 5B 77 AB 31 08 1E 0E 68 00 01 AC 2F 03 1E 06 62 AB 2F 04 19 05 19 05 ) NIL STANDARD-METHOD 3. SUBCLASSP TYPEP ) |#'shared-initialize| GF-METHODS VALID-INITARG-KEYWORDS COMPUTE-EFFECTIVE-METHOD *REINITIALIZE-INSTANCE-TABLE* ) ) #Y(#:TOP-LEVEL-FORM-170 #18Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA 2C 03 03 19 01) INITIALIZE-INSTANCE (1. 0. T NIL NIL) (0.) DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-171 #16Y(00 00 00 00 00 00 00 00 00 01 97 00 0F 01 19 01) INITIALIZE-INSTANCE |#'initialize-instance| ) #Y(#:TOP-LEVEL-FORM-172 #34Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 62 DC DD 37 02 71 2D 7A 01 DE 62 DF E0 6D 0A 09 2F 0A 19 01 ) INITIALIZE-INSTANCE :INITFUNCTION #Y(#:TOP-LEVEL-FORM-172-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #.#'%INITIALIZE-INSTANCE (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-OBJECT :QUALIFIERS :SIGNATURE (1. 0. T T NIL T) MAKE-STANDARD-METHOD DO-DEFMETHOD ) #Y(#:TOP-LEVEL-FORM-173 #34Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 62 DC DD 37 02 71 2D 7A 01 DE 62 DF E0 6D 0A 09 2F 0A 19 01 ) INITIALIZE-INSTANCE :INITFUNCTION #Y(#:TOP-LEVEL-FORM-173-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #.#'%INITIALIZE-INSTANCE (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STRUCTURE-OBJECT :QUALIFIERS :SIGNATURE (1. 0. T T NIL T) MAKE-STANDARD-METHOD DO-DEFMETHOD ) #Y(#:TOP-LEVEL-FORM-174 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) INITIAL-INITIALIZE-INSTANCE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(INITIAL-INITIALIZE-INSTANCE #39Y(00 00 00 00 01 00 00 00 01 17 AC 71 2C AA 6E 00 AE 6E 01 6A 02 AC 9D 79 AE AC AC 30 69 16 02 94 00 B0 63 A2 9A 02 06 ) VALID-MAKE-INSTANCE-KEYWORDS MAKE-INSTANCE-TABLE-ENTRY2 *MAKE-INSTANCE-TABLE* ) ) #Y(#:TOP-LEVEL-FORM-175 #37Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB DC DD 63 DE DF 37 02 71 2D 7A 01 E0 62 E1 E2 6D 0A 0B 2C 04 0C 19 01 ) MAKE-INSTANCE (1. 0. T NIL NIL) (0.) :INITFUNCTION #Y(#:TOP-LEVEL-FORM-175-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #Y(#:TOP-LEVEL-FORM-175-1-1 #21Y(00 00 00 00 01 00 00 00 01 17 98 00 AD 37 02 71 2D 9E 9A 01 03) MAKE-INSTANCE ) (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS SYMBOL :QUALIFIERS :SIGNATURE (1. 0. T NIL NIL NIL) MAKE-STANDARD-METHOD DO-DEFGENERIC ) #Y(#:TOP-LEVEL-FORM-176 #34Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 62 DC DD 37 02 71 2D 7A 01 DE 62 DF E0 6D 0A 09 2F 0A 19 01 ) MAKE-INSTANCE :INITFUNCTION #Y(#:TOP-LEVEL-FORM-176-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #.#'%MAKE-INSTANCE (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-CLASS :QUALIFIERS :SIGNATURE (1. 0. T T NIL T) MAKE-STANDARD-METHOD DO-DEFMETHOD ) #Y(#:TOP-LEVEL-FORM-177 #34Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 62 DC DD 37 02 71 2D 7A 01 DE 62 DF E0 6D 0A 09 2F 0A 19 01 ) MAKE-INSTANCE :INITFUNCTION #Y(#:TOP-LEVEL-FORM-177-1 #15Y(00 00 00 00 01 00 00 00 00 02 D8 C4 5C 19 02) #.#'%MAKE-INSTANCE (T) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STRUCTURE-CLASS :QUALIFIERS :SIGNATURE (1. 0. T T NIL T) MAKE-STANDARD-METHOD DO-DEFMETHOD ) #Y(#:TOP-LEVEL-FORM-178 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) INITIAL-MAKE-INSTANCE SYSTEM::REMOVE-OLD-DEFINITIONS #Y(INITIAL-MAKE-INSTANCE #42Y(00 00 00 00 01 00 00 00 01 17 AC 6E 00 AC AB 30 64 AD 71 3F AA 6E 01 6A 02 AD 9D 79 B1 AC AC 30 69 16 02 93 00 AC A1 9A 01 06 ) VALID-MAKE-INSTANCE-KEYWORDS MAKE-INSTANCE-TABLE-ENTRY2 *MAKE-INSTANCE-TABLE* ) ) #Y(#:TOP-LEVEL-FORM-179 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAKE-INSTANCE-STANDARD-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-INSTANCE-STANDARD-CLASS #16Y(00 00 00 00 00 00 00 00 01 16 98 00 9D 9A 00 02) MAKE-INSTANCE ) ) #Y(#:TOP-LEVEL-FORM-180 #20Y(00 00 00 00 00 00 00 00 00 01 D8 2E 01 D8 DA 31 84 C3 19 01) MAKE-INSTANCE-STRUCTURE-CLASS SYSTEM::REMOVE-OLD-DEFINITIONS #Y(MAKE-INSTANCE-STRUCTURE-CLASS #16Y(00 00 00 00 00 00 00 00 01 16 98 00 9D 9A 00 02) MAKE-INSTANCE ) ) #Y(#:TOP-LEVEL-FORM-181 #34Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2D 7A 01 DE 62 DF E0 6D 0A 09 2F 0A 19 01 ) INITIALIZE-INSTANCE :INITFUNCTION #Y(#:TOP-LEVEL-FORM-181-1 #25Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 7E 02 00 00 AA 6C 00 01 C4 5C 19 03 ) #Y(#:TOP-LEVEL-FORM-181-1-1 #38Y(00 00 00 00 02 00 00 00 01 18 29 2A 03 7E 04 00 00 7E 03 00 01 7E 02 00 02 AA 6C 01 01 67 01 01 06 02 02 9A 01 05 ) NIL #Y(#:TOP-LEVEL-FORM-181-1-1-1 #72Y(00 00 00 00 01 00 00 00 C1 00 05 00 01 00 3C 05 3A 04 03 0E 06 FA DF B2 E0 B2 31 33 DF B2 E1 B1 31 33 98 0A B2 A3 36 01 07 00 01 1B 10 98 0B 68 01 01 68 00 02 07 00 03 36 02 A2 19 08 14 68 00 02 07 00 03 36 01 1A 72 ) NIL :NAME :METACLASS :DIRECT-SUPERCLASSES :DIRECT-SLOTS :DIRECT-DEFAULT-INITARGS <STANDARD-CLASS> CLASS 2. 1. INITIALIZE-INSTANCE-STANDARD-CLASS %NO-NEXT-METHOD ) ) (NIL) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STANDARD-CLASS :QUALIFIERS :SIGNATURE (1. 0. T T (:NAME :METACLASS :DIRECT-SUPERCLASSES :DIRECT-SLOTS :DIRECT-DEFAULT-INITARGS ) NIL ) MAKE-STANDARD-METHOD DO-DEFMETHOD ) #Y(#:TOP-LEVEL-FORM-182 #34Y(00 00 00 00 00 00 00 00 00 01 D8 D9 DA DB 63 DC DD 37 02 71 2D 7A 01 DE 62 DF E0 6D 0A 09 2F 0A 19 01 ) INITIALIZE-INSTANCE :INITFUNCTION #Y(#:TOP-LEVEL-FORM-182-1 #25Y(00 00 00 00 01 00 00 00 00 02 00 2A 01 7E 02 00 00 AA 6C 00 01 C4 5C 19 03 ) #Y(#:TOP-LEVEL-FORM-182-1-1 #38Y(00 00 00 00 02 00 00 00 01 18 29 2A 03 7E 04 00 00 7E 03 00 01 7E 02 00 02 AA 6C 01 01 67 01 01 06 02 02 9A 01 05 ) NIL #Y(#:TOP-LEVEL-FORM-182-1-1-1 #92Y(00 00 00 00 01 00 00 00 C1 00 08 00 01 00 3C 08 3A 07 03 0E 09 FD E2 B5 E3 B5 31 33 E2 B5 E4 B4 31 33 98 0D B5 A6 36 01 07 00 01 1B 24 98 0E 68 01 01 68 00 02 07 00 03 36 02 B4 6A 0F 8A 10 0E E2 B5 E3 71 32 98 11 AB EA AC 31 8A 16 02 A5 19 0B 14 68 00 02 07 00 03 36 01 1A 5E ) NIL :NAME :METACLASS :DIRECT-SUPERCLASSES :DIRECT-SLOTS :DIRECT-DEFAULT-INITARGS :NAMES :SLOTS :SIZE <STRUCTURE-CLASS> CLASS 2. 1. INITIALIZE-INSTANCE-STRUCTURE-CLASS %NO-NEXT-METHOD <CLASS> SUBCLASSP PRINT-CLASS SYSTEM::STRUCTURE-PRINT ) ) (NIL) ) :WANTS-NEXT-METHOD-P :PARAMETER-SPECIALIZERS STRUCTURE-CLASS :QUALIFIERS :SIGNATURE (1. 0. T T (:NAME :METACLASS :DIRECT-SUPERCLASSES :DIRECT-SLOTS :DIRECT-DEFAULT-INITARGS :NAMES :SLOTS :SIZE ) NIL ) MAKE-STANDARD-METHOD DO-DEFMETHOD )